Produzi ao na Zona Franca de Manaus 




PARA A GERAÇÃO 





QUE VAI MANDAR. 



SABER 

MANDAR. 



AO LANÇAR O PRIMEIRO 
MICRO, DE FATO, PESSOAL 
A GRADIENTE ESTA 
É LEVANDO A SERIO 
(E COMO) UMA COISA 
QUE SEUS FILHOS 
MOSTRAM TODO DIA A 
VOCE, SEM A MENOR 
CERIMONIA: O FUTURO 
COMEÇA EM CASA. 

A HABILIDADE DE 
RACIOCINAR, DE 
MANIPULAR SÍMBOLOS, 

DE USAR SEM MEDO 
A LINGUAGEM DO SEU 
TEMPO, A CAPACIDADE 
LIVRE DE CRIAR -TUDO 
ISSO -E VER UM FILHO 
DESCOBRINDO A VIDA. 
DESCOBRINDO QUE SABE. 
E O QUE VAI DIFERENCIAR 
ACABEÇA DO SEU FILHO 
É A SUA VONTADE DE 
APOIAR E SUS- ^ 
TENTAR OS 
ESFORÇOS DELE 
EM QUALQUER 
TIPO DE APREN- 
DIZADO. 

AO COLOCAR 
NAS LOJAS 




OEXPERTMSX, 
A GRADIENTE ACREDITA 
QUE ESTA FORNECENDO 
UM INSTRUMENTO 
VALIOSO. EXTREMAMENTE 
ACESSÍVEL, ATÉ A PAIS. 

PORQUE SÃO VOCÊS, 
ESO OS PAIS, QUE 
DETERMINAM OU 
ESCOLHEM ENTRE O FILHO 
QUE ENTENDE E USA 
MICROCOMPUTADORES 
E O QUE VAI SER 
ENGANADO, ILUDIDO OU 
MISTIFICADO POR ELES. 
EA GERAÇÃO QUE VAI 
MANDAR QUE NOS DES- 
CULPE, MAS SABER ESCO- 
LHER O MELHOR PROGRA- 
MA, ÃS VEZES, PODE SER 
FICAR EM CASA. AO LADO 
DE UM CÚMPLICE HONES- 
TO E CULTO SEM SER CHA- 
TO E MORALIS- 
TA, E BOM CA- 
RÁTER SEM SER 
INGÊNUO. PA- 
RA PRATICAR 
INTELIGÊNCIA 
PARA ENFREN- 
TAR A VIDA. 











gradiente 



CARACTERÍSTICAS TÉCNICAS: ■ O EXPERT MSX E UM SUPER B BITS CQM ALTA VELOCIDADE 3,58 MHz • 16 CORES # MICROPROCESSADOR Z8 r DA COM UM 
PROCESSADOR PARA VÍDEO E UM PROCESSADOR PARA AUDIO * MEMÓRIA RAM DE 8GK, SENDO ódK PARA O USUÁRIO E 1 6K PARA VÍDEO * MEMÓRIA ROM DE 
32 K * INTERFACES INCORPORADAS PARA: DJSK-DRIVE, JOYSTICK, IMPRESSORA, GRAVADOR, MONITOR RGB E MONOCROMÁTICO, EXPANSAO DE SISTEMA. 
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MSX NAS ESCOLAS - aproxima-se o tempo 
e/n cjue professores e alunos dirão adeus ao 
c/u adro negro e f darão as boas vindas ao 
monitor de fósforo. \c?jo como isso deve 
ocorrer 
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DESVENDANDO OS DISCOS (parte II) 
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CARTAS 


seguímos, guiados por Massarani, a 
desvendar os mistérios do MSX. 


22 


PROGRAMAS 




35 


CURSO DE PASCAL 


44 
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dBASEII 


DICAS - iroejue seu clik-clik por um beep, 
dizendo adeus ao velho screen , sem perder 


46 


GAMES 


seu (JP/AI de vista, rodando o programa e 



descobrindo . . . 

41 

PLANILHAS ELETRÔNICAS - Luís fieres 
disseca a a rrnozeri agem de dados rio seu 
MSX . 






4 MSX Micro 





tom o iriion-b eo imon-u, abeoiança com exciusivioaae no mercaao 
brasileiro, o Drive de 3 1/2 polegadas para o MSX, Isso significa que o seu micro 
jamais será o mesmo. 

Mais espaço interno. 

Menor que o disco de 5 1/4, o disco de 3 1/2 polegadas é melhor mais rápi- 
do e mais segura Por dentro aumenta muito a capacidade do seu micro Por fo- 
ra, você ocupa muito menos espaço. 

Melhor desempenho e maior velocidade. 

Com os novos Drives da SPS, você tem á disposição muito mais 
espaço para armazenar informações. Isso sem falar na rapidez de acesso aos 
dados. Com Triton-S, para discos face simples, sâo 360 kbyles livres para você 
usar como quiser Com o Tnton-D. para discos de dupla face, são 720 kbytes da 
mas avançada tecnologia de Drives para micros de 8 bits. 

Para aplicações profissionais, o seu MSX ganhou um poderoso aliado. 

Para jogos, ele está agora além da imaginação. 

Segurança nas curvas. 



Com o Drive 3 1/2 você tem acesso a um programa utilitário que permite a 
impressão de telas com alta resolução. Os gráficos e os desenhos ganham com 
isso novos contornos e maior nitidez. 

Garantia de seis meses. 

O Triton-S e o Tnton-D são fabricados dentro da mais moderna tecnologia 
de Hardware, Você tem um produto de alta qualidade, garantido por quem fabri- 
ca. Acompanha ainda um disco com o Sistema Operacional especial mente de- 
senvolvido pela Condor Software, um interface e um manual de operação. 




SLEIMAN PROGRAMAS E SISTEMAS 

Rua Matias Cardoso, II - sala 502 
CEP 301 70 - Fone: (031) 27 5-1045 



A SPS está ampliando a sua rede de revendedores. 
Se você tem loja, entre em contato ainda hoje. 






EDITORIAL 



Após decolar no segmento de aplicações semiprolissionais c de 
lazer, o padrão MSX dá sinais de estar ganhando pontos num 
setor que pode ser considerado, hoje, tão inexplorado quanto 
promissor MSX MICRO analisa, neste número, a utilização dos 
MSX na área educacional e a participação dos micros no projeto 
governamental Educom. O assunto, embora não seja 
propriamente novo, continua polêmico c motivando discussões 
— ■ um debate que, por sinal , os MSX se encarregaram de 
reaquecer; afinal, nenhum outro equipamento no mercado 
brasileiro conseguiu, ate hoje, conciliar características tão 
favoráveis para o uso na Educação. Confira as razões na matéria 
de capa desta edição, e entenda melhor a movimentação que já 
se faz sentir nesta área — traduzida pelos primeiros pacotes de 
software educacional e jogos de ficção interativa (adventures) 
capazes de 'falar' português, todos desenvolvidos por autores 
brasileiros. 

Inauguramos também, nesta edição, uma seção de dicas dc 
programação. O objetivo tia nova seção é facilitar o intercâmbio 
de informações entre os muitos usuários do padrão MSX, que 
passam, desta forma, a contar com um espaço pari a troca de 
experiências e conhecimentos úteis sobre as suas máquinas. 
Dicas, críticas c sugestões relativas ã nova seção devem ser 
encaminhadas para a redação de MSX MICRO — Av. Passos, 
101/11 ° andar CEP 20051, Rio de Janeiro, RJ. 

Estamos aguardando as suas colaborações. Até a próxima. 
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EDUCOM 



OMSX 



O grande S complexo 
sistema, publico de 
ensino, movido a cargas 
rápidas de verbas 
Cqficiais e cgp sérios 

Te gerência , 
los poucos se 
desligando da 
administração de 
ensino convencional 
baseada mg antigas 
condutas consen adoras 




e manuais, e se 
aproximando de 
modelos educaciona is 
modernos e dinâmicos. 

A nova era tem , no 
Colégio Souza Aguiar, 
Rio de Janeiro, um 
exemplo de como pode 
ser estimulante para as 
áreas administrativa e 
educacional a 
integração de objetivos e 
formas de atuação 
através da 
informatização de 
ambas. É tempo de 
softivare educacional. É 
tempo de EDUCOM. 






2 c c + 




MSX Micro t 



AC f ';i +■ JL. 





Software Educacional 

Software educacional propõe-se a 
instruir através da utilização das 
Ferramentas chamadas 

ores. Isto cra um objetivo 
nte há alguns anos atrás devido 
ao alto custo dos equipamentos. 

At traí nien te. os m ic ro-con 1 1 iu tadores , 
com seu custo real decrescente, 
tornam viáveis alternativas muito 
interessantes como: 

Digitalização de imagens, 

* Reconhecimento; de imagens, 
Intelegéncía ai tiMcial. 
oirnstofcc n a s o imo t lese nli 
ados em cr) rife utad ores 
mé ticos deixa: 
cientifica, ou de estar presentes em 
sofisticados si temas CAD/CAM para 
fazerem parte do dia-a-dia do 
homem comum. 

O computador serve ao ensino de 
três formas básicas: 



porém o computador pode torná-lo 
dispensável se for capaz de 
responder a todas as hipóteses. Ror 
exemplo: 

— Simular o lançamento de um 
projétil. 

Que acontecerá se aumentarmos a 
velocidade do mesmo? E se 
alterarmos a inclinação? 

Atuando no teclado, pode-se 
verificar estas e outras questões sem 
que seja necessário lançar um 
projétil. Tal courseware dispensa o 
professor e também a avaliação. 



Instrução programada — É o tipo de 
treinamento implementado por 
grandes organizações, onde os 
tópicos são muito divididos em 
rígido esquema. Primeiro, apresenta- 
se um texto explicativo e a seguir, é 
léita a avaliação do aprendizado 
através de perguntas e respostas, 

Esta avaliação é feita pelo próprio 
aluno ou por programa que 
contabilize acertos e erros de cada 
um. Neste tipo de instrução, o mais 
importante é o conteúdo e a 
sequência des aulas. 

Courseware de simulação - Parte do 
pressuposto de que o aluno já 
conhece o assunto e deseja simular 
certas situações. Isto poderia ser feito 
num Laboratório Experimental, 



Instrução Assistida por Computador — 

de ser ficção P | .-É o tipo de software educacional em 
que o computador é usado para 
enriquecimento do conteúdo de 
aulas ministradas por professores. A 
finalidade do software é fazer o 
aluno visualizar certos pontos já 
mencionados e, para tanto, é 
importante boa resolução gráfica c 
som. À avaliação é feita por 
perguntas e respostas para confirmar 
a boa compreensão das situações. 
Este foi o esquema adotado pelo 
EDUCOM. 



Projeto Educom 

Educação por computadores é o 
projeto governamental brasileiro de 
informatização do ensino nacional, 
que visa pesquisar os reais efeitos da 
informática sobre o ensino brasileiro 
médio. É preciso deixar claro que a 
equipe envolvida neste projeto está 
ciente da importância do professor 
como agente orientador deste 
processo de infomatização. A 
professora Ri va Roitman, por 
exemplo,, uma da coodernadoras do 
Educom no Rio de Janeiro, afirma 
que "a introdução do computador 
na educação é um problema tanto 
dos informatas quanto dos 
educadores”. 




O projeto reúne universidades 
brasileiras que desenvolvem 
experiências sobre a utilização de 
computadores no ensino de I o e 2 ? 
graus, trabalhando com escolas 
públicas cia comunidade onde estão 
localizadas. 

Origem 

O projeto nasceu em 1983, quando 
da resolução do governo de aplicar a 
informática como um recurso 
tecnológico a mais ao processo 
educacional brasileiro. O MEC, 
através da Secretaria Especial dc 
Informática — SEI ■— enviou uma 
solicitação as universidades para que 
estas apresentassem projetos de 
pesquisa sobre a aplicabilidade do 
computador no ensino. De várias 
universidades, apenas cinco foram 
selecionadas, criando centros pilotos 
para desenvolvimento do projeto e o 
desenvolvendo atualmente, São elas 
as Universidades Federais do Rio 
Grande do Sul, de Pernambuco, de 
Minas Gerais, do Rio de Janeiro e a 
Universidades Estadual de Campinas. 



Moda ou Solução 

A introdução dos computadores no 
ensino de I o e 2 o graus não é 



consequência dc um modismo. Esta 
iniciativa do governo é resultante da 
necessidade de minimizar alguns dos 
problemas do atual sistema de 
ensino. Apenas como exemplos, de 
cada 100 alunos que ingressam na 1 ° 
série do I o grau, somente a metade 
passa para a 2 o série e menos de 30 
atingem a 5 0 série, Além disso, toda 
a literatura publicada sobre o ensino 
via computador afirma que esta é 
uma das poucas tecnologias novas 
que permite um a completa 
reformulação do ensino, tanto em 
termos de prática do professor, 
como de aprendizagem do aluno. 

Colégio Souza Aguiar 

No Rio de Janeiro, o Projeto 
Educom está realizando um 
experimento piloto no Colégio 
Souza Aguiar, colégio público 
localizado em um bairro de classe 
média/baixa. 

Está sendo implementado o uso 
do computador no ensino dc 
Matemática, Física, Química e 
Biologia para quinze turmas de 1 ° 
série de 2 ? grau — cinco turmas por 
turno. Os alunos têm aulas teóricas c 
só poste rior mente vão trabalhar com 
os softwares no laboratório montado 
na escola pek equipe do Educom. 

Cada equipe, dividida por áreas 
de ensino — Matemática, Física, 
Química e Biologia — T é formada por 



um professor Phd de universidade, 
dois professores de 2 ? grau da 
respectiva matéria, um professor da 
escola, um especialista em 
metodologia, um programador e um 
analista de sistemas. É este grupo que 
seleciona todo o material e todo o 
equipamento a serem utilizados. 

Por qu* o MSX? 

Algumas vantagens correm a favor da 
utilização do MSX num projeto da 
envergadura do Educom. Ele 
apresenta: 

* Basic extremamente poderoso 

■ Menor gasto de memória e menor 
complexidade nos sitemas de 
autoria. 

* Efeitos sonoros mais ricos. 

* Um hardware mais 1 ‘enxuto”, 
eliminando a necessidade de 
placas e mais placas extras, 

* Possibilidade, no caso do Expert, 
de embutir a CPU em uma 
bancada, fazendo com que o 
aluno tenha acesso somente ao 
teclado. 

* Custo relativamente baixo. 

Seria interessante frisar que no 
Colégio Souza Aguiar, horário de 
treinamento com o MSX é de 40 
horas semanais. Dd 



EXCLUSIVIDADES 

Cz$ 200, 

Chopper 

Humprei 

Contract Bridge 

A cada 4 programas você tem 

direito a escolher um jogo grátis 

de CzS 120, 




JOGOS 

CzS 120 

ArRanoict 
Cüft36 
Winter Games 
Wizzard's La ir 
Profanation 
Zoot 
Bounder 
Spirits 
Star Wars 

The Meaning of Life 




mm 

software 





No preço está incluída uma fita cassete. Caso o usuário deseje 
receber sua encomenda em disquete, deve acrescentar Cz$ 
ISO. a cada 6 programas. 

Peça catálogo atualizado grátis 



UTILITÁRIOS 
CP /M 

CzS 850, 

(Disquete incluído) 

Cobol 
Murnps 
Linguagem C 
Turbo Pascal 
Fortran 

Word Star (40 col) 



APLICATIVOS 

CzS 250, 

MSX Write 
Tassword 
Mini-Data 

Controle de Estoque 
Co py mama — o melhor do 
momento, copia qualquer 
programa. Cz$ 750, 



Para fazer seu pedido remeta cheque nominaf cruzado ou vale postal I MSXMANIA, no valor total da encomenda 
+ Cz$ 60, (Correio), acompanhado de uma carta com seu nome. endereço, marca do micro, versào e gravador. 

Rua Pedro Américo, 418/02, Catete — CEP 22211 — Rio de Janeiro RJ — Tel.: (021) 245-3815 




MSX NEWS 




E agora, o MSX 
com 80 colunas 



Fortaleza — já está no mercado 
o VMX-80, cartão de vídeo de 
80 colunas para MSX desenvol- 
vido pela empresa cearense Mi- 
crosol. O periférico, que tem o 
formato de um cartucho, pode 
ser conectado a qualquer um 
dos slots do MSX e permite ao 
computador operar com 40 ou 
80 colunas, selecionáveis atra- 
vés de c ha vea mento por soft- 
ware. Além da facilidade de ins- 
talação, uma característica im- 
portante deste cartão de vídeo 
é manter, no modo de 80 colu- 



nas, todos os recursos de edição 
fuli-soveu encontrados no m<r 



Foto: Silas de Paula. 

do normal de operação do 
equipamento, além da iinha pa- 



ra identificação das teclas de 
função na parte inferior da tela. 

Mas o maior atrativo do car- 
tão de 8ü colunas é. sem dúvi- 
da, possibilitar Finalmente a uti- 
lização de um grande número 
de programs aplicativos proje- 
tados para estas dimensões de 
tela, como diversos exemplares 
da vasta biblioteca do sistema 
operacional CP/M. Usuários em 
potencial, no entanto, devem 
atentar para um detalhe impor- 
tante: este cartão foi desenhado 
para operar exclusiva mente 
com monitores de vídeo, Ou 
seja: de acordo com as informa- 
ções do fabricante, o VMX-80 
não pode ser usado com televi- 
sores adaptados. 



O MSX faz a feira 



Mais duas opções 
para você se ligar: 
Videotexto e 
Telegame 

São Paulo — Um Kit de comu- 
nicação, com acesso a videotex- 
to e telegame. c o lançamento 
anunciado pela Emhracom. 

O Kit. destinado a equipa- 
mentos compatíveis com a li- 
nha MSX, é composto por um 
modem e cartucho. C) modem 
tem uma capacidade de 1200 a 
1275 bits por segundo, e o car- 
tucho — constituído de inter- 
face è software de comunica- 
ção ao videotexto e telegame, 
gravado cm memória Eprom — 
deve ser ligado numa das entra- 
das para cartucho do micro. Pa- 
ra usufruir dos serviços do vi- 
deotexto ou se divertir com os 
j t )g< »s ck > te I egame. tu do o q ue 
o usuário do MSX precisa é se 
ligar nesse Kit de comunicação, 
que deverá chegar ás lojas em 
breve. 



São Paulo — Aconteceu parale- 
lamente ã Feira de Informática 
a I Feira Nacional do MSX. A 
MSX Informática organizou e, a 
SHARP GRADIENTE, PRIN- 
CESSWARE, CIBERTRON, LO 
GIÇAL, ALEPH, NOBEL, 
MCGRAW-HILL, SCRITTA, 
ELEBRA, ROSITEL. MICRO- 
SOL, TELCOM, BYTEX e. a 



O mundial mente conhecido 
S u per C al c 1 desenvo 1 v i dc ? pe 1 c > 
Computer Associates já está no 
Brasil à disposição dos usuários 
do MSX Quem acha que o mi- 
cro deve ajudar a simplificar a 
nossa, cada dia, mais complexa, 



KRON, compareceram. 

A LOGICAL apresentou um 
PLOTTER que trabalha com 
formato de papel A4, com tro- 
ca manual de pena e pode 
transformar o MSX num posto 
CAD (desenho' auxiliado por 
computador). 

A GRAFIX MTÂ foi transfor- 
mada em uma impressora grá- 
fica inteligente com o aplica ti- 



vida moderna então, encontrou 
um aliado. Basta uma configu- 
ração básica (micro + drive + 
cartão de 80 colunas / opcional 
/ + impressora / opcional í) pa- 
ra que você se torne usuário 
desta potente planilha eletrôní- 



vo Cocar versão 5.0 da MSX IN- 
FORMÁTICA. 

A edição e cópia dc cartu- 
chos, edição de tabelas, carac- 
teres e gráficos, o acesso a qual- 
quer slot e, aos dados do disco, 
ficou mais fãcíl com o ME- 
GA-ASSEMBLER, lançado na 
feira pela CIBERTRON 



ca. 

A Princessware, responsável 
pela comercialização do soft- 
ware cm todo país avisa que 
basta saber ligar o micro, utili- 
zar o disk drive e, dê um che- 
que de 12 OTNs, 



SuperCalc 2 para o seu MSX 




kA • Drive 5 1/4 & interface dupla 

• Placa de 80 colunas para monitor 
CQPj • Interface dupla para drive 

* • Modem para ligação entre micros 

0 Jogos diversos: Cz$ 40,00 ( a cada 10 jogos envie Cz$ 100,00 para disco ou fita) 

0 Aplicativos: Cz$ 150,00 

0 Pacotão:100 jogos + 5 fitas ou discos + 3 aplicativos + 2 copiadores + 1 zapper = Cz% 3.000,00 

Para fazer seu pedido remeta cheque nominal cruzado para A.Nasser, no valor total da 
encomenda. Para maiores esclarecimentos é favor mandar carta com nome e endereço 
completo para: Rua Gonzaga Bastos, 411/203 — CEP. 20.541 — Vila Isabel — Rio de 

Janeiro — Tel.: (021) 234-0775 



Chegaram os drives 
de 3 V 2 polegadas 




Foto Régis Filho 



Sào Paulo — Mais do que um 
simples periférico, uma antiga 
reivindicação dos usuários do 
padrão MSX; assim podem scr 
definidos os drives de 3 V2 po- 
legadas, que finalmente che- 
gam ao Brasil pelas mãos da 
Technoahead, uma empresa 
paulista com larga experiência 
na fabricação de cabeças mag- 
néticas para drives. Com di- 
mensões bastante reduzias {cer- 
ca de 10 cm de largura por 15 
cm de comprimento e 4 cm de 
altura), o drive DT-300, de face 
simples, possui uma capacida- 



de de 500 Kb não formatados, 
enquanto que a versão de face 
dupla, o DT-350, chega a alcan- 
çar 1Mb não formatado 

Associados a esta capacida- 
de de armazenamento, os dri- 
ves de 3 Ví polegadas apresen- 
tam uma alta confiabilidade de 
operação e qualidades estéticas 
Inegavelmente superiores às de 
seus pares de 5 V4 polegadas. 
Mesmo assim, os drives con- 
vencionais não estão fora dos 
planos da empresa; um drive 5 
¥4 ” será lançado breve mente, 
em duas versões. 

Um detalhe não menos im- 



portante para os usuários é que, 
segundo informações da em- 
presa, o preço dos drives de 3 
x h 11 não deverá ser muito supe- 
rior aos de 5 ] A Lançados na 



Feira de Informática em setem- 
bro, no r Anhcmbi, a previsão é 
de que os drives de 3 ¥2 1 já es- 
tejam nas lojas este mês. 



Itansforme o seu MSXem uma máquina de desenhar. 




Com o IINíPUTMOUSE é muito fécif desenhar, fazendo gráficos e 
esquemas MS X. Na compra do seu JNPUtMOUSE você recebe, em fita 
ou cartucho. 0 incrível programa "ch&ese", que permite 0 des&n-bo livre 
ou de qualquer figura geométrica, com perfeição e rapidez. Tudo $em 
tocar nas tecias do micro. Além disso o iNPUT MOUSE serve como 
joystick e até mesmo para criar programas em Basic compatíveis com o 
Mouse. 

Venha ver uma demonstração do INPUTMOUSE na CASA DO MSX e 
aproveite 0 preço promocional de CzS 3.390,00. 



Rua Afonso Brás, 155 - São Paulo - SP 
Tais.: (0111633.2351 ©240/1994 



MENU - CAIXA DE FERRAMENTAS 



LINHAS RETAS 

Cria linhae retas. 


/ 


A 


UNHAS CONTINUAS 

Pesen ha linhas livres 
corrtPnu». 


'Õ 


■U 


RETÂNGULOS 

Oseenha retângulos. 


□ 


M 


ClRCULpS 
Desenha clrcu los. 


O 


CD 


COLORIR 
Pirne ume anea 
delimitada. 


& 


& 


COROO LÁPIS 
Muda a cor do lápis 
e do traçado. 


& 




LIMPA A TELA 

Limpe ioda a tela 


& 


P 


ESPELHOS 

Cria planos de 
simetria 


0 


1 


TROCA CORES 

Traça as c.orm 
utilizados 


<$> 


3 


AMPUAÇÀO 

Amplia ume parte 
da teia 




â 


MOV PLANOS 
Movimenta a leia 
00* entes X e V 


L 




LQAÜ 

Cerreae oom dm 
desenha ermezenedo 


di 


ch 



TÉXT0 

Psrmiie escrever. 

UNHAS TflACE JAQAS 

□&wnhi linhas 
livres traceiadaa. 

RETA N POLOS P UNTADOS 
Desenha wtangukM 
com a cor daeeisós 

ELIPSES 
Deacfhu elipses. 

PREENCHER 

Preencha com cor ume 
área delimitada 

COR DO CURSOR 
Mude a cot do 
ctfflsr. 

COR DA BORDA 
Mude a Area 
externa d» teia. 

MOVIMENTAÇÃO menu 

Movimenla o menu 
pele tale. 

ESPESSURA DO TRAÇO 

Seleciona e espessura 
d<a traça. 

HEPFPÇAO 
Repete uma pana 
da teia 

IMPRESSÃO 

Imprime nn papel a que 
estã na tela 

SAVE 

Arrrmzena a que 
esTÉ r- d teta 




INPUT DIGITAL 



CAPTAS 



Seção bola de 

CRISTAL 

Gostam que fosse retificado 
o número dc minha caixa 
postal, publicado na pagina 
13 da revista MSX MICRO N° 
10. Complementando a mi- 
nha participação, gostaria 
também de sugerir a criação 
dc uma seção de dicas, por 
ser a forma dc comunicação 
mais curta, porém mais ob- 
jetiva para revistas sobre in- 
formática. 

José j. R. Mendes — RJ 

Atenção leitores que quise- 
rem tirar dúvidas ou trocar 
idéias sobre "Os Maravilho- 
sos Drives MSX " (MSX MI- 
CRO NP 8): é só entrar em 
contato com o autor do ar- 
t igo , j o sé Jt dio Rod rigu es 
Mendes, através da caixa 
postal 3275 , CEP, 20001 , 
Rio de Janeiro — RJ, 

Tudo certo agora , José ? 
Quanto ã seção de dicas } 
nossa opinião é de que vo- 
cê, no mínimo \ deve ter uma 
bola de cristal. Dê uma 
olhada e depois escreva-nos 
dizendo o que achou . 

PROCURA-SE MSX 
MICRO 

A revista MSX MICRO NP 3 
esta rcalmente esgotada? 

Se estiver, peço que divul- 
guem o meu interesse em 
adquirir um exemplar em 



perfeito estado de conserva- 
ção. 

Antonio Silva Pereira Andra- 
de — PE 

Infelizmente ; a edição n° 3 
de MSX MICRO está mesmo 
esgotada Se algum leitor 
puder ajudar o endereçado 
Antonio é. Rua Almirante 
Cochrane 239 - Santo 
A moro — Recife — Pis CEP 
50040. 

Bronca 

Hã cerca de três meses, vi 
num jornal do Rio um anún- 
cio da Exbit Software, da Vila 
Velha (ES), Tentado pelos 
baixos preços que oferecia, 
escolhi os programas e en- 
viei um cheque. Quinze dias 
depois, recebi uma carta avi- 
sando que a gravação estava 
sendo providenciada, e que 
a receberia assim que estives 
se pronta. 

Após uma árdua espera, 
que se estendeu por três me 
ses e meio, e varias cartas 
perguntando pela demora 
(nenhuma delas respondi 
da), resolvi investigar o en- 
dereço e telefone do respon 
sável pela Firma. Entrei em 
contato com de e avisei que, 
se não mandasse os progra- 
mas imediatamente, entraria 
com um processo na justiça. 
Só então de se prontificou a 
gravar os programas, embo- 
ra o cheque jã tivesse sido 
descontado hã bastante tem - 
po. 

Escrevi esta carta para os 
amigos do padrão MSX que 



estão com problemas eom 
programas que nunca che- 
gam: está na hora de agir, 
amigos, E também para aler- 
tar aos demais para que não 
entrem em transação comer- 
cial com a Exbit ou Sérgio 
Pereira Ricardo, que não têm 
responsabilidade alguma pa 
ra revenda de software. 

Por último, gostaria que 
meu endereço fosse publica- 
do na seção dc cartas, para 
troca dc idéias e correspon- 
dência, 

Karl Mesquita leite junior 

Caixa Postal 385 — Natal 
— RN — CEP 59001 

ARQUIVO DE 
MATÉRIAS 

Sou estudante de medicina 
da Universidade de Brasília e, 
desde novembro, possuo 
um E xpcn da Gradiente. A 
principal razão porque com- 
prei este micro foi a intenção 
de utilizá-lo como arquivo 
das matérias que tenho cur- 
sado. 

Gostaria, então, de ser 
orientado no sentido de 
conseguir realizar, da melhor 
maneira possível, esta antiga 
idéia: ter arquivado todo o 
curso dc medicina, inclusive 
resumo de livros, gráficos, 
etc. Pediria que me forne- 
cessem o maior número de 
informações possíveis e que 
me indicassem os melhores 
acessórios para expansão de 



memória de meu micro. Pos- 
suo também uma máquina 
de escrever elétrica Praxis 20 
c gostaria de saber como 
posso utilizá-la como im- 
pressora, conectando -a ao 
meu micro. 

Rômulo Maroclo Filho 
Brasília — DF 

Rômulo, para utilizar seu 
Expert no cadastramento de 
conteúdo de suas aulas de 
medicina sugerimos um ge- 
renciador de banco de da- 
dos, como o dBase II da Da- 
talógica , e no mínimo um 
(1) drive Para operá-lo não 
haverá grande necessidade 
de conhecimentos de pro- 
gramação. Para cadastrar 
gráficos você deverá possuir 
um Editor grafico ; já exis- 
tem várias softbouses ofere- 
cendo-os . Não hã, a princi- 
pio, necessidade de expan- 
são de mémoria. 

A interface para utilização 
da Praxis 20 como impres- 
sora poderá ser conseguida 
junto ã MSX Informática 
em São Paulo , 

CLUBES DE USUÁRIOS 

Venho por meio desta, co- 
municar a criação de mais 
um clube de usuários da li- 
nha MSX. Maiores informa- 
ções escreva para: 

Rua I, quadra 9 / nP 37, con- 
junto Pio XII, Jatiúca — Ma- 
ceió — ALAGOAS. 

Geraldo Penha Amorim Jú- 
nior 
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Estou formando, junto com 
um grupo de amigos, o 
‘MSX AMIGO”, um clube 
que visa à troca de jogos, 
aplicativos, utilitários c etc ... 
Quem quiser saber mais de- 
talhes sobre o nosso clube 
escreva para: 

CAIXA POSTAL 490/CEP 
37700 — Poços de Caldas — 
MG 

Hernani Teixeira Ari 

Gostaria de informar a exis- 
tência do clube ( Taros Infor- 
mática Clube MSX T1 de Ilha 
Solteira — SP O clube, que 
tem sócios por todo o Brasil, 
troca programas e informa- 
ções com todos os usuários 
do MSX, sócios ou não do 
clube, O endereço é: 
Passeio Cambará, n? 408 — 
Ilha Solteira — SP — CEP 
15378 

Fabrício Miranda Quaresma 

CORRESPONDÊNCIA 

Sou usuário do MSX e gosta- 
ria de trocar programas em 
fita e disco. Os interessados 
podem entrar em contacto 
comigo pelo seguinte 
endereço: 

Rua Desmons, 295 — Coe- 
lho Neto — RJ — CEP 21530 
Nei Eduardo C. Lima 

Gostaria de trocar corres- 
pondência com outros usuá- 
rios do padrão. Quem esti- 
ver interessado pode escre- 
ver para: 



Av França, n ? 371 — Nave- 
gantes — Porto Alegre — RS 
— CEP 90230 
Marco Aurélio Rrambilía 

Possuo um Expert equipado 
com monitor e com um Da- 
tacordcr. Admiro a capacida- 
de desses micros da linha 
MSX e, sendo assim, propo- 
nho-me a trocar correspon- 
dência com outros usuários 
para podermos comprar, 
trocar, vender programas e 
etc. . . 

Av, Filogonio Peixoto, n° 
1539 — Bairro Aviso — Cai- 
xa Postal 238 — Linhares — 
ES — CEP 29900, Telefone 
(027) 264-2593 
Ossimar Antonio Sealdaferro 



Gostaria de mc correspon- 
der com outras leitores da 
Revista MSX MICRO. 

Meu endereço é: 

Rua Cipreste, n? 19 — Eldo- 
rado/Contagem — MG — 
CEP 32310. Telefone (031) 
351-9278 

Antonio Alves Ferreira 

Desejo trocar correspon- 
dência com outros usuários 
do padrão MSX. 

Quem estiver interessado 
pode escrever para: 

Rua Tiradentes, nPJló — B. 
Guanabara — Campinas — 
SP — CEP 13023 
Fernando Ramires 



Sou possuidor de um Expen 
1.1 e de um Hotbit, Tenho 
também vários softwares 
(uns 200 jogos e vários apli- 
cativos), Gostaria, assim, dc 
trocar idéias e programas 
com outros usuários do pa- 
drão MSX. Meu endereço c: 
Rua Cel. Francisco Galvâo, 
n? 267dpt 103 — Piedade — 
Jaboatão — PE — CEP 
54000 

Fábio Freire de Almeida 

Gostaria de trocar corres- 
pondência com outros usuá- 



rios da linha MSX. Os inte- 
ressados podem escrever 
para: 

Rua Paulo Miranda da Fonse- 
ca, n° 27/apt 704 — Colina 
— Volta Redonda — Rj — 
CEP 27180 
Flávío P Guimarães 

Desejo trocar informações e 
programas com outros leito- 
res da revista. 

O endereço é: 

CAIXA POSTAL 23 — Piras- 
sununga — SP — CEP 13630 
Gastão José dos Santos 
Souza 



DE A SEU MICRO 
O MELHOR 
TRATAMENTO 




Cuidamos do seu 
equipamento com uma 
equipe técnica altamente 
especializada e da sua 
tranquilidade com um 
atendimento de alto nível e 
honestidade absoluta. No Rio 
de Janeiro, só a MODULAR- 
SYSTEMS lhe oferece estas 
vantagens. 

• Check-up grátis 

• Rapidez no atendimento 

• Transporte ida e volta 

• Relatório detalhado de 

serviços 

• Honestidade absoluta 

• Nacionais ou importados 



modular 




Systems 

Rua Almirante Cochrane, 202 
-TsL ÍPBXl 284-6087 



DESVENDANDO 
OS MISTÉRIOS DOS 
DISCOS - O DIRETÓRIO 




1 $ Massarani 



A parte II desta série de 
artigos dá continuidade as 
soluções dos mistérios 
existentes nesse sensacional 
objeto magnetizãvel , que é o 
disquete de 5 l k polegadas. 



Todos os programadores e 
usuários necessitam 
desvendar esses mistérios 
para fazerem bom uso dc 
seus micro-computadores. 
Porem, nem sempre são 
bem sucedidos em virtude 
do escasso acervo de 
informações no mercado, 
Minha intenção c T então, 
ajudá-los nesta tarefa, 
apresentando mais 
informações sobre o 
Diretório. 

Otfttlvo 

Esta parte objetiva 
apresentar como as 
informações constantes do 
Diretório são armazenadas 
nos disquetes de 5 Vi 
polegadas, sejam eles de 
face simples ou de face 
dupla, Para complementar 
o entendimento dc como 
essas informações sào 
armazenadas, é 
apresentado também um 
programa cm BASIC, que 
permite analisar 
visualmente todas as 
informações contidas do 
Diretório, arquivo por 
arquivo. Cabe observar 
que esse programa é útil 
não só para o entedimento 
desse artigo, como 
também para qualquer 
tarefa que o leitor tenha 
que executar e que 
dependa do exame dc 



informações sobre 
arquivos ou Diretórios 
completos. 

Pré-Requisitos 

O único pré-requisito para 
o entendimento da Parte II 
desta série dc artigos é a 
leitura e compreensão da 
Parte I, publicada na 
revista MSX-Micro n? 11. 

$e o leitor ainda não 
adquiriu essa revista, 
sugiro que o faça o mais 
rápido possível, pois as 
informações ali contidas 
não estão disponíveis em 
nenhuma outra 
publicação, seja revista ou 
livro, da qual eu tenha 
conhecimento. 

0 Diretório — Como ó 
armazenado? 

O leitor se recorda que o 
Diretório ocupa 4 (quatro) 
setores lógicos no disquete 
de 5 Vá de face simples 
(setores de números 5, 6, 7 
e 8) e 7 (sete) setores 
lógicos no de face dupla 
(setores de números 5, 6, 

7, 8, 9, 10 e 11). Esta 
diferença na quantidade dc 
setores necessários ao 
armazenamento do 
Diretório não deve 
surpreender o leitor, pois 
como o disquete dc face 
dupla possui uma 
capacidade dc 360 kbytes, 
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ou seja, o dobro dos 180 
k bytes do disquete de face 
simples, ê coerente que 
possa vir a ter uma 
quantidade bem maior de 
arquivos gravados que o 
disquete de face simples, 
Para cada arquivo que 
gravamos em um 
determinado disquete é 
criada uma Entrada no 
Diretório, que ocupa 32 
bytes do espaço reservado 
para o referido Diretório. 
Seja o arquivo gravado 
pelo Disk- Basic (isto é: um 
programa em BASIC, um 
arquivo de dados, um 
arquivo gravado pelo 
BS AVE, etc) ou gravado 
pelo MSX-DOS (isto é. um 
programa em Pascal, um 
arquivo de dados, um 
arquivo COM, etc.), essa 
Entrada no Diretório 
identifica o arquivo como 
único e exclusivo naquele 
disquete, não podendo 
haver duas Entradas iguais 
no Diretório, 

Sabemos do artigo 
anterior que em cada setor 
do disquete podem ser 
gravados 512 bytes. Então, 
usando aritmética simples, 
podemos determinar a 
capacidade de arquivos 
por disquete, 
multiplicando o número 
de setores reservados para 
0 Diretório pelo número 



de bytes por setor e 
dividindo este resultado 
pelo número de bytes 
utilizados no Diretório 
para cada arquivo, ou seja: 
Face simples: 5 x 512/32 
= 64 

Face dupla: 7 x 512/32 = 

112 

Isto é, em um disquete 5 
l A de face simples 
podemos gravar um 
máximo de 64 arquivos e 
em um disquete 5 l A de 
face dupla um máximo dc 
112 arquivos. 

Isto nos mostra que 
podemos atingir uma 
situação um tanto quanto 
estranha, mas verdadeira. 
Suponho que gravamos 
em um disquete de 5 Vá 
face dupla, 112 arquivos de 
2 kbytes cada um; com 
isso, gastamos 224 kbytes 
do disquete sobrando 
ainda espaço para gravar 
outros arquivos; mas na 
realidade não podemos 
gravar mais nenhum 
arquivo no disquete, pois 
o Diretório esta lotado e 
não comporta nenhum 
outro arquivo. 

Eu particularmente 
aconselho que não se 
tenha disquetes com uma 
quantidade de arquivos 
superior a 40 (quarenta), 



pois fica muito 
complicado para o ser 
humano, não para o 
micro-computador, 
gerenciar esses arquivos. 
Evidentemente, hã casos 
em que, obrigatoriamente, 
temos que ultrapassar este 
numera 

Nos casos em que se 
torna mais complicado 
para o leitor localizar 
arquivos após ser dado o 
comando DIR ou FILES, 
recomendo Icr o meu 
artigo "O Classificador de 
Arquivos”, publicado na 
MSX-Micro, nP 8, página 
32, e utilizar o programa lá 
apresentado, que devido a 
erros de grafica foi 
republicado na MSX-Micro 
n? 11. 

Parece-me lógico que a 
próxima versão do MSX- 
DOS permitira a utilização 
de Diretórios em Árvores, 
o que permite o 
gerenciamento de arquivos 
com muito mais facilidade, 
não havendo, limitações 
quanto ao número de 
arquivos que se pode 
gravar em um disco (a não 
ser, lógico, a capacidade 
em bytes do disco). 
Aguardemos esperançosos. 



Os Maravilhosos 32 Bytes 

Como acima explicado, 
cada Entrada no Diretório, 
para um determinado 
arquivo, ocupa 32 bytes 
do espaço reservado para 
o Diretório. Eu chamo 
esses 32 bytes de 
"maravilhosos 1 ’ cm virtude 
de serem eles o ponto de 
partida para a grande 
maioria dos comandos 
que trabalham com 
arquivos. Para citar apenas 
dois exemplos, sc dermos 
o comando DIR pelo 
MSX-DOS ou FILES pelo 
Disk- BASIC, é analisando 
os 32 bytes de cada 
Entrada no Diretório para 
cada arquivo que esses 
comandos vão buscar as 
suas informações para nos 
mostrar na tela; se dermos 
um comando OPEN 
"TESTE” FOR 1NPUT AS 
1, é também analisando os 
32 bytes dc cada Entrada 
no Diretório para cada que 
o Disk- BASIC vai verificar 
se o arquivo TESTE existe 
e, se existir, vai abri-lo para 
nós. 

A disposição das Entradas 
no Diretório para cada 
arquivo é a seguinte: 

a) Cada Entrada é 
gravada no Diretório 
sequencialmente a partir 
da primeira; 

b) Ao apagarmos algum 

a 
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Início do Diretório 



Arquivo i 


32 bytes 


Vaga 


32 bytes 


Arquivo 3 


32 bytes 


Vaga 


32 bytes 


Entradas ainda 




não ut 1 1 izadas 





Fíb do Diretório 



arquivo a Entrada por cie 
ocupada torna-se vaga para 
ser reutilizada; 

c) Se necessitarmos dc 
uma Entrada para algum 
arquivo, a primeira, 
sequencialmente a ser 
encontrada será utilizada, 
tenha sido ela ainda não 
utilizada ou tenha sido da 
dc um arquivo apagado. 
Um exemplo esclarecerá 
melhor o acima descrito: 

a) Suponha que 
acabamos de formatar um 
disco e gravamos nele 4 
arquivos números 1, 2, 3 e 
4. O Diretório se 
apresentará como na 
Figura L 

b) Suponha agora que 
apagamos os arquivos 2 e 
4. O Diretório se 



apresentará como na 
Figura 2 

c) E finalmente suponha 
que gravamos mais três 
arquivos números 5 , 6 e 7 
O Diretório se apresentará 
como na Figura 3 

A Subdivisão das Entradas 

Cada Entrada no Diretório, 
Ou seja, cada 32 bytes, 
contém uma série de 
informações sobre o 
arquivo que a cia pertence. 
Essas informações ocupam 
determinados bytes desses 
32 bytes. Denominemos 
cada informação dessa 
como área. A Tabela 1 
apresenta as áreas e os 
bytes que cada uma dessas 
informações u t ilizam . 

Cada área de A a H é 
uma informação utilizada 



pelo M5X-DOS ou pelo 
Disk-BASIC para gerenciar 
os arquivos de cada 
disquete. 

O leitor poderá (c eu 
aconselho que o faça) 
examinar essas áreas para 
cada arqui vo de seus 
disquetes, utilizando o 
programa que a seguir 
apresento. 

0 Programa 

Este programa foi 
desenvolvido para 
possibilitar que os leitores 
examinem as informações 
constantes do Diretório de 
um disquete de 5 14 
polegadas, seja ele de face 
simples ou face dupla e 
esteja o disquete no drive 
A ou B. 



Não são utilizadas sub- 
rotinas em assembíer para 
tornar o programa mais 
rápido pois é minha 
intenção que o 
entendimento do mesmo 
atinja uma maior gama de 
leitores, por isso ele foi 
totalmente desenvolvido 
em BASIC e objetivando 
ser de fácil assimilação e 
não ultra-rápido. 

O programa é 
totalmente auto- 
explicativo, incluindo 
também uma tela de ajuda 
(help) coso o leitor 
necessite de explicações 
adicionais. 

Para uma melhor análise 
por parte do leitor, 
apresento a seguir como o 
programa esta subdividido: 
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a) Configuração do 
sistema (linhas 10 a 130) 

b) Teto Inicial (linhas 
140 a 350) 

c) Preparação do buffer 
e inicialização de variáveis 
(linhas 360 a 420) 

d) Tela de Seleção 
(linhas 430 a 590) 

e) Determinação do 
número de faces do disco 
(linhas 600 a 670) 

f) Leitura do Diretório 
(linhas 680 a 780) 

g) Definição da última 
Entrada no Diretório 
(linhas 790 a 870) 

h) Apresentação do 
Diretório (linhas 880 a 
1200) 

i) Movimentação e saida 
do Diretório (1210 a 1380) 



j) Sub-rotinas auxiliares 
(linhas 1390 a 2390): 
Tratamemto de limites do 
Diretório (1390 a 1540) 
Tratamento de teclas do 
cursor (1550 a 1650) 
Apresentação da <l Tcla de 
Ajuda” (1660 a 2000) 
Apresentação da tela 
“Início de Diretório” (2010 
a 2110) 

Apresentação da tela "Fim 
de Diretório” (2120 a 2220) 
Apresentação da tela de 
“Drive Não Previsto” (2230 
a 2330) 

Loop de tempo (2340 a 
2390) 

k) Saída do programa 
(linhas 2400 a 2450) 

Como o programa 
altera alguns parâmetros 
do BASIC, eu resolvi 
reestartar o sitema em vez 



de um simples retomo ao 
BASIC, para não trazer 
problemas a outros 
programas que venham a 
rodar posteriormente e 
que não prevejam a sua 
própria configuração. Se o 
leitor quizer interromper a 
execução do programa 
para examinado sem 
reestartar o sistema, basta 
apertar CTRbSTOP 
A Figura 4 apresenta a 
tela do programa que 
mostra o Diretório. Cada 
tela apresenta 4 (quatro) 
Entradas no Diretório, a 
não ser que o disquete 
possua menos de 4 



(quatro) arquivos e, nesse 
caso, serão apresentados 
apenas os arquivos que o 
disquete possuir. 

A coluna DESL 
representa o deslocamento 
relativo em hexadecimal, 
dos bytes dentro do 
Diretório. 

As colunas 
HEXADECIMAL 
representam os bytes, cm 
hexadecimal, constantes 
do Diretório. 

A coluna ASCII 
representa os caracteres 
correspondentes a cada 
byte da coluna 
HEXADECIMAL. 0 



TABELA i 



Area 


A 


8 


tytes 


Are a 


S 


3 


bytes 


Area 


C 


i 


byte 


Area 


D 


í» 


bytes 


Arca 


E 


2 


bytes 


Area 


F 


2 


bytes 


Area 


G 


2 


bytes 


Area 


H 


4 


bytes 


Total 


32 


bytes 



-Início da Entrada 



Fii da Entrada 
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DESVENDANDO 
OS MISTÉRIOS DOS 
DISCOS -O DIRETÓRIO 



FIGURA 4 



*** LEITOR DE DIRETÓRIO #** 
DESL HEXADECIMAL ASCII 



MA 


41 


52 


54 


33 


50 


32 


20 


20 


ART3P2 


0008 


4i 


53 


43 


00 


00 


00 


00 


00 


A5C 


0010 


00 


00 


00 


00 


00 


00 


AE 


4E 


1 


00Í8 


86 


0E 


02 


00 


B0 


1B 


00 


00 




0080 


41 


52 


54 


33 


50 


32 


20 


20 


ART3P2 


0028 


42 


41 


4B 


00 


00 


00 


00 


00 


BAK 


0030 


00 


00 


00 


00 


00 


00 


00 


00 


...... j 


0038 


81 


0E 


08 


00 


00 


12 


00 


00 




0040 


41 


52 


54 


33 


50 


32 


20 


20 


ART3P2 


0048 


42 


41 


53 


00 


00 


00 


00 


00 


BAS.... 


0054 


00 


00 


00 


00 


00 


00 


00 


00 




0058 


86 


0E 


0D 


00 


2B 


13 


00 


00 




0060 


41 


52 


54 


49 


47 


4F 


31 


20 


ARTIGO! 


0068 


41 


53 


43 


00 


00 


00 


00 


00 


ABC.... 


0070 


00 


00 


00 


00 


00 


00 


00 


00 




0078- 


99 


0C 


12 


00 


45 


10 


00 


00 


* ■ ■ ■ E ■ ■ 



#** UTILIZE CURSORES ***//J=AJlM 
I=IHfCIO DIRETÓRIO//F=FIM DIRETÓRIO 
D-MOOO DIRETÓRIO//R=RESTARTAR SISTEMA 




O leitor deve notar que 
cada 32 bytes, ou seja, 4 
(quatro) linhas da tela, se 
refere a uma Entrada no 
Diretório, isto é, um 
arquivo. 

O leitor deve analisar as 
áreas de A a H 
anteriormente 
mencionadas de cada 
bloco dc 32 bytes e 
certamente já identificará o 
significado de algumas 
delas só de observá-las. 

Caso o leitor não 
consiga identificar 
nenhuma das informações, 
não se preocupe, nas 
próximas partes desta serie 



A parte 1 apresentou: 

a) O que é o Diretório; 

b) Onde é armazenado 
o Diretório; 

A Parte II apresentou: 

c) Como são 
armazenadas as 
informações no Diretório 

— Um programa em 
BASIC para examinar o 
Diretório 

de artigos eu as expliearei 
uma por uma e 
apresentarei exemplos dc 
utilização das mesmas e 
alguns programas de 
grande interesse para o 
leitor. 

Aguardem a Parte III !!! 



10 

20 *** CONFIGURAR * 

tf tf 

30 

40 SCREEN 0 
50 COLOR í 5,1,1 
60 W I D TH 38 
70 FOR 1=1 TO 10 
30 KEY I/'" 

90 NEXT 
100 KEY OFF 
110 CLEAR 30„*H9FFF 
120 MAXF ILES=0 
130 DEFINI I-K 
140 7 

150 7 tf tf tf TELA INICIA 
L tf tf tf- 
160 

j 70 CLS 

180 PR INI SPCÍ5)*"** 
tf LEITOR DE DIRETOR I 
0 tf tf tf ** 

190 PR INT s PR I NU PR IN 
T " P r ü 9 r ama e I ab or a d 
□ por JuS, MAS3ARANI - 



200 


PRINT: 


PR 


INT 


"Ver 


saci 


1 .. 0" 








210 


PRINT 


"D 


ata* 


: 01 


de 

// 


fevere i 


PQ 


de 


1907 


220 


PRINT: 


PR 


INT 


"Est 


e pi 


r o gr ama 


P 


ode 


ser 


ut i 


1 i zado 








230 


PRINT 


"P 


ara 


qual 


q ue 


r final 


i ci 


ade 


que 



se 

240 PRINT "deseje r e« 
eeto aquelas que env 
ol~" 

250 PRINT "vam aspec 
t: os comer c i a i s* " 
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260 PRINT SPRINT "PRE 
STIQIE NOSSOS TRABAL 
HOS." 

270 PRINTSPRINT:PRIN 
T "Selecione*" 

280 PRINTsPRINT SPC< 
3); "D - LER DIRETOR I 
O" 

290 PRINTsPRINT SPCC 
3 ) ? "R - REESTARTAR S 
ISTEMA" 

300 PRINTSPRINT SPCC 
3 > ? " J = TELA DE AJUD 
A" 

310 AÍ«INKEYÍ5IF Aí= 

"" THEN 310 

330 IF ( Aí ~"D" ) OR ( 

Aí* "d" ) THEN 390 

330 IF <AÍ="J"> OR < 

Aí--" j " ) THEN GOSUB 1 

690= GOTO 17 O 

340 IF ( Aí ; ~"R") OR ( 

Aí «"r"> THEN 2430 

350 GOTO 310 

360 

370 *«« PREPARA BUF 

FER E OARIAVEIS *#* 
380 

390 KH=&HA0 s KL-ÃH0 
400 POKE fcHF351 r KLíP 
OKE ÉSHF352 , KH 
410 EI«256*KH+KL 
420 JX =!: 0 s DI~0 
430 

440 *** TELA E)E SEL 

ECAO *** 

450 

460 CLS 

470 PRINT SPC < 5 > ;"** 
w LEITOR DE DIRETOR I 
0 **■*" 

480 L.OCATE 0,8 



490 PRINT "Selecione 

■ " 

H 

500 PRINTSPRINT SPCC 
3)? "A - LER DIRETOR I 
0 DE A" 

510 PRINTSPRINT SPCC 
3);"B - LER DIRETOR I 
0 DE B" 

520 PRINTsPRINT SPCC 
3 ) í " J * TELA DE AJUD 
A" 

530 PRINTsPRINT SPCC 
3 ) f "R « REESTARTAR S 
ISTEMA" 

540 Aí-INKEYí : IF A.í== 
"" THEN 540 
550 IF <AÍ="A") OR C 
Aí="a"> THEN K D «is GO 
TO 630 

560 IF <AÍ“"B") OR C 
Aí="b" ) THEN KD“2 s GO 
TO 630 

570 IF ( A$*"J" ) OR C 
AÍ-~" j " ) THEN GOSUB 1 
690 s GOT 0 460 
580 IF < A í "= " R " ) OR < 
A!»"r"> THEN 2430 
590 GOTO 540 
600 

610 **■* DETERMINA F 

ACES DO DISCO *** 

620 

630 Dí*DSK lí C KD, 1 ), 
640 IF CPEEKCEI) AND 
252 ) -252 THEN KC=8s 
GOTO 710 

650 IF CPEEKCEI) AND 
253 ) “253 THEN KC*Ü 
s GOTO 710 
660 GOSUB 2260 
670 GOTO 460 
680 



690 '#** LER DIRETOR 
10 ««« 

700 

710 JH-KH 

720 FOR J=5 TO KC 

730 DÍ«DSKIí CKD, J> 

740 JH~ JH+2 

750 POKE ÃHF352 , JH 

760 NEXT J 

770 AP=256«PEEK (&HF3 
52 ) +PEEK C &HF351 ) 

780 POKE AP , 0 
790 

800 #** DEFINE ULTI 

MA ENTRADA **# 

810 

820 FOR AC--EI TO AP 
STEP 32 

830 IF PEEK C AC) ”0 TH 

EN 850 

840 NEXT AC 

850 LX«ACBKF«i6 

860 IF LI-EI>«128 TH 

EN 910 

870 KF=CLI-EI)/8 
880 r 

890 '*** APRESENTA D 

IRETORIO **«■ 

900 

910 CLS 

920 PRINT SPCC5)í"** 
* LEITOR DE DIRETOR I 
0 ***" 

930 PRINT "DESL" ? SPC 
C 7) p 

940 PRINT "HEXADECIM 
AL." f SPC C 8 ) ; 

950 PRINT "ASCII" s PR 
INT 

960 DE“DI s EN-EI 
970 EN-EN+DE 
980 ASí“"" 
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990 FOR J=i TO KF 
í.000 DE5=RIGHTS("000 
"+HEXS<DE> ,4> 

1010 PRINT DES; SPC< 1 
) t 

1020 FOR I 0 TO 7 
1030 KY-PEEK (EN+Í) 
1O-10 KYS = RIOHTS("0" + 
HEXS(KY) ,2) 

1050 PRINT KYSjSPCd 
) í 

1060 IF < K Y< 32 í OR ( 
KY >126 ) THEN K Y 4 ó 
1070 ASS=A5S+CHRS<KY 

> 

1080 NEXT I 
1090 PRINT ASS 
1100 EN=EN+8 
1110 DE-DE+B 
1120 ASS»"" 

1130 NEXT J 

1140 PRINT : PR INT "** 

w UTILIZE CURSORES * 

f 

1150 PRINT "//"; 

1160 PRINT "J -AJUDA" 
1170 PRINT "I=INICIO 
Dl R ETOR I O" ; 

1180 PRINT "//" ; "F=F 
IM DIRETOR IO" 

1190 PRINT " D="-NOVO D 
I R ETOR IO"? 

1200 PRINT " / /" ; "R = R 
ESTAR T AR SISTEMA"' 
1210 ' 

1220 '*** MOVIMENTO 

NO DIRETOR IO *** 

1230 * 

1240 CS=*STICK(0) 

1250 IF CS”0 THEN 13 
10 

1260 BOSUB 1420 



1270 IF JX-0 THEN 91 
0 

1280 JX=0 

1290 ON CS SOS UB 162 
O, , 1580, ,1640, , 1600 
1300 BOTO 910 
1310 AS»INREYS 
1320 IF AS»"" THEN 1 
240 

1330 IF í AS""D" ) OR 
<AS»"d"> THEN 390 
1340 IF <AS»"J"> OR 
<AS»"j"> THEN BOSUB 
1690: BOTO 910 
1350 IF ( AS="R " > OR 
(AS»"r") THEN 2430 
1360 IF <AS="I") OR 
(AS»"i") THEN BOSUB 
1480: GOTO 910 
1370 IF ( AS="F" ) OR 
<AS«"f"> THEN BOSUB 
1510 : BOTO 910 
1380 BOTO 1240 
1390 ' 

1400 '**» TRATAMENTO 

DE LIMITES *** 

1410 ' 

1420 IF ( í CS~ 7 > OR ( 
CS=i>> AND (DI=0> TH 
EN 2040 

1430 IF ( ( CS= ; 3 ) OR ( 
CS”5 ) ) AND < EN=LI ) T 
HEN 2150 

1440 IF ( C S =- 7 ) AND ( 
D I < 1 2 8 ) THEN 1490 
1450 IF ( CS==3 ) AND í 
L I -EN < 128 ) THEN 1520 
1460 JX=1 
1470 RETURN 
1480 IF DI==0 THEN GO 
SUB 2040 



1490 DI=0 

1500 RETURN 

1510 IF EN-LI THEN B 

OSUB 2150 

1520 IF KF< 16 THEN D 
1=0 : RETURN 
1530 DI»LI-EI-12B 
1540 RETURN 
1550 T 

1560 T **« TECLAS DO 

CURSOR *** 

1570 ' 

1580 DI=DI+í28 
1590 RETURN 
1600 DI»DI-i28 
1610 RETURN 
1620 Dl =D 1-32 
1630 RETURN 
1640 DI=DI + 32 
1650 RETURN 
1660 r 

1670 '### TELA DE AJ 

UDA 

1680 ’ 

1690 CLS 

1700 PRINT SPC < 5 ) í "# 
»* LEITOR DE DIRETOR 
10 ***" 

1710 PRINT SPC < 8 > ; "~ 

— TELA DE AJUDA — 

// 

1720 PRINT 

1730 PRINT "Depenei en 
do da tela, as segui 
nt es" 

1740 PRINT "teclas p 
odem estar at ivas:" 
1750 PRINT 

1760 PRINT "TECLAS D 
O CURSOR:" 

1770 PRINT " 

tf 
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1780 PRINT "PARA CIM 


1940 PRINT SPC ( 4 ) f "S 


2180 PRINT "UOCE JA 


A = ARQUIVO ANTE: 


ELECIONAR OUTRO D ISO 


CHEGOU AO" 


RIOR" 


UETE" 


2190 PRINT 


1790 PRINT "PARA R AI 


1950 PRINT SPC ( 2 ) ; "R 


2200 PRINT SPC(10)í" 


XO « PROXIHO AROU 


** » 
y 


FIM DO DIRETOR 10 ! " 


100" 


1960 PRINT SPC ( 4 ) j "R 


2210 GOSUB 2370 


1800 PRINT "PARA ESQ 


EES TARJAR 0 SISTEMA" 


2220 RETURN 


UERDA = PAGINA ANTER 


1970 PRINT 


2230 r 


IOR" 


1980 PRINT "Tecle al 


2240 r **w TELA DRIVE 


1810 PRINT "PARA E>IR 


go..." 


NAO PREVISTO 


EI TA = PRÓXIMA PAGI 


1990 AS=INKEY1 : 1F AS 


2250 y 


NA" 


="" THEN 1990 


2260 CLS 


1880 PRINT 


2000 RETURN 


2270 PRINT SPC (5 ) 


í 830 PRINT "TECLE" ; 8 


2010 ' 


** LEITOR DE DIRETOR 


PC< Í5) í"PARA" 


2020 '*** TELA INICI 


10 «««" 


18-40 PRINT " ";B 


0 DE DIRETOR 10 **•><■ 


2280 LOCATE 7,9 


PCC 15> ;" " 


2080 r 


2290 PRINT "DRIVE NA 


Í850 PRINT SPC ( 2 ) ? "I 


2040 CLS 


0 PREOISTO! ! ! " 


,f . 
r 


2050 PRINT SPC ( 5 ) ; "* 


2300 PRINT 


1860 PRINT SP C < 4 ) f " I 


*# LEITOR DE DIRETOR 


2310 PRINT SPC ( 4 > ; "E 


R AO INICIO DO DIRET 


10 **#■" 


NTRE EM CONTATO COM 


OR IO" 


2060 LOCATE 9,10 


0 AUTOR." 


1870 PRINT SPC(2>í"F 


2070 PRINT "VOCE JA 


2320 GOSUB 2370 


¥ 


CHEGOU AO" 


2330 RETURN 


1880 PRINT 5 P C < 4 ) ; " I 


2080 PRINT 


2340 ' 


R AO FIM DO DIRETOR I 


2090 PRINT SPC < 8 ) ; "I 


2350 '«**■ LOOP DE TE 


0" 


NICIO DO DIRETOR 10 ! " 


MPO » * k 


1890 PRINT SPC (2) j "A 


2100 GOSUB 2370 


2360 r 


// 

¥ 


2110 RETURN 


2370 TIME-0 


1900 PRINT SPC í 4 ) í "S 


2120 ' 


2380 IF TI ME <180 THE 


E LECIONAR DISQUETE D 


2180 T *** TELA FIM D 


N 2380 


0 DRIOE A" 


E DIRETOR 10 *** 


2390 RETURN 


1910 PRINT SPC(2> ;"E) 


2140 ' 


2400 y 


" . 

¥ 


2150 CLS 


2410 '*** SAIDA DO P 


1920 PRINT SPC < 4 ) ;"S 


2160 PRINT SPC ( 5 ) ; "« 


ROGRAMA **«• 


ELECIONAR DISQUETE D 


** LEITOR DE DIRETOR 


2420 ' 


0 DRIUE 8" 


10 *#k" 


2430 DEFUSR ==0 


1980 PRINT SPC < 2 > ? "D 
¥ 


2170 LOCATE 10,10 


2440 A=USR ( 0 ) 

2450 FIM DO PRO 

GRAMA *** 

m 
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PROGRAMAS 



BANCO DE DADOS 



D ispt ) nível origi na ri amei 1 te 
para micros TRS-80, este 
banco de dados, especial- 
mente adaptado para o pa- 
drão MSX s permite manipu- 
lar ate 60 registros com 8 
campos por arquivo cm dis- 
co, ou ate 100 registros em fi- 
ta cassete. De operação bas- 
tante simples, a principal ca- 
racterística deste programa é 
scr inteiramente au to-expli- 
cativo : todas as suas funções 
são orientadas por menus. 
Ao rodar o programa, sur- 
ge na tela um menu inicial 
formado por duas opções: 

1 — Criar um novo arquivo 

2 — Carregar um arquivo 

Ao selecionar a primeira op- 
ção, você devera definir ca- 
da campo como numérico 
(N) ou alfanumérico (À). De- 
finida a estrutura, surgirá en- 
tão um menu principal, que 
apresenta as seguintes op- 
ções: 



C — Colocar 
M — Modificar 
D — Delctar 

0 — Ordenar 
J — Justificar 
T — Totalizar 

R — Redefinidor 
L — Listar 
N — Novo Banco 
S — Sair 
P — Procurar 
G — Gravar 

1 — Imprimir 
F — Diretório 

Aqui esta um resumo cios co- 
mandos empregados pelo 
programa: 

C — Colocar (Registro) — 
insere dados de um registro 
no banco. 

L — Listar — lista todos os 
registros jã inseridos, 

M — Modificar — altera 
conteúdo de um registro. 



N — - Novo Banco — 

reinicializa o banco de da- 
dos. 

D — Deletar — deleta um 
ou mais registros do banco 
de dados. 

S — Sair — Sair do progra- 
ma e entrar no Basic. 

O — Ordenar — coloca os 
regi si rc )s em c ) rdc m al fa b c t i - 

ca, 

P — Procurar — procurar 
um item nos registros. 

J — Justificar — faz a tabula- 
ção dos campos na tela e na 
impressora. 

G — Gravar grava arqui- 
vo em disco ou fita. 

T Totaliza itens — totaliza 
valores em um campo nu- 
mérica 



I — Imprimir — imprimir 
arquivo em impressora. 

R — Redefinidor de te- 
clas — para redefinir as te- 
clas de função, o que facilita 
a inclusão dos dados. 

F — Diretório do disco — 
mostra o diretório do disco, 
sem sair do programa, 

Alterações 

A digitação do programa não 
oferece maiores complica- 
ções, mas se você não tem 
unidade de disco, preste 
atenção nas linhas 10 e 14, 
Na versão em cassete, a linha 
14 deve ser alterada para: 

14 MF = 7 : MI = ZI + 33 

Do mesmo modo, na li- 
nha 10, modifique a inscri- 
ção CLEAR 5000 para 
CLKAR 7500, 



MUITIMOD6M 

MSX 

O único que opero em 
75, 300 e 1200 bits/s, 
em 86LL 0 em CCITT. 
Compotívef com o 0C- 
PÉRTeoHOT-BIT. 




MSX é marco registrada da Gradiente Cletrônico S/R 



Com o cartucho modem do TCLCOM 
TCLCMfiTICR você pode acessar o Ciran- 
dao, o Aruanda, o Bíreme, comunicar-se 
micro-ò- micro, e contactar bancos de da- 
das no Brasil e no €xterior. 

O multimodemjá incorporo a RS-232, e 
o software de comunicaçaa é gratuito. 

TatOMT€L€MRTICfl 

Rua Rnito Garibaldí, 1700 - f; (0512)419871 

90430 - Porto Alegre - RS - Brasil 



1 KEY0FF:COL0fi3,i:FORA-lT010: 
KEYA, ""rNEH 

2 SCREEN3 

3 ÜPEN-BRP: "ASfl 

4 PRESET í 10 3 20) IPRINTÜ, " BA 
NCO" 

5 FRESET <S0, 70) iPRINTtl ? “ BE 

6 PRESET (40, 130); PR INTIl,™ 
OS - 

7 FOR0W"1TO3O£)O: NE5CTDH 

8 CLQSE 

9 CLB: SCREENO 

10 CLEAR5000: ZY=67: ZA=97: í B-Z 
A+l 7: IC=lGiB: ZD-ZC-H3: ZE=ZC-8: Z 
f=ze+5:íb=zf+io:zN2 

11 P0KE64É83Í,255;ZYÍ=CHR*ÍZY 
) +CHRt ( 2 Al +EHR4 ( ZB) +CHRI í ICÍ + 
CHRt(Zl})+CHRt(ZG);Zet=CHfttUH 
) +CHR* f ZF ) +CHRI (99) +CHRI í ZAH 
CHRÍ ( Z B) +CHRt ( ZE I +CHRÍ ÍZD ) 

12 defstra-h:üefinti-s 

13 

14 rtF=7:HI=ZY-7 

15 DIHDÍMF) , AT (WFJ , F (WF) ,T (HF 

J f HFÍHF1 

16 DlrtOtMI) f Y(J1I) jBfKI) ,AÍMF, 
Hl) ,1 (HF, Hl) 

17 DNERR0RG07G74 

18 CLS 

19 PR JNTSTR3NB* (39,200) 

20 PRINT* Produzido por * 

k *;ZGÍ 

21 PR INTSTR I WG t í 39, 200 ) 

22 PRINT 

23 PRINTTABt 12) “BANCO DE DADO 

S" 

24 PRJNTTfiBíUr - - 

25 PR3NTTABÜ2) “SELECIONE OPC 

aõ: h, :print 

26 FRINTTABÜ2P1 - Criar nov 
o arquivo" 

27 PRINTTABÍ12) ^2 - Carregar 
UB arquivo": PRINT 

28 PRINTSTRINGt (39, 200): PRINT 

29 FRÍNLPRINT" --> "JIINF 
ÜFDPCAO : ";N 

30 IFZCOIO&THENNEK 

31 IFN<1ÜRN>32THEN23 

32 ONNGOTG33,47 

33 CLSSNF-OINI-Q: PRINT “Defini 
os c impes : “ : PSINTSTR 1 NEf ( 39, 

200) 

34 FRíTPEntre coa a definira 
o:*:PRINT B <M> para minerico o 
u <A> para alfa tt :PRINTSTRINGt 
(39,200) 

35 FDRI=OTOMF:ATU)“"*:DUÍ= i 

■ 

36 FRINT"Gaip 0 no, "í J+l; : 1NP 
UT1HI1 ,ATÍI) 



37 IFLENÍDíI) I >1Ü!HENU)=LEFT 
*UKI),1Q) 

3B IFD(I) =l,J 'THEN42 

39 IFAT í n=“N“0RAT ( I ) =‘'A D THEN 
41 

40 PRINT "Voe* deve especifica 
r <N> du ÍA> B :G0TG36. 

41 NEíTI 

42 NF=I-lSNI=-l 

43 CLS:FRINT"0 banco tea“;NF+ 
1; "campas, desta maneira: * 

44 FQRI=OTONF 

45 PRINT"Cdínpo no, H í l+ií f : n ; 
DÍJ);TABÍ30);ATÍI1 

46 IO TI : 6GS0B69: B0T0 74 

47 CLB: LGCATFO r 1 1 : FR I KT K 0 arq 
foi gravado eu <D>isco ou <F 

>ita?° 

48 HJÍ=INKEYÍ :IFHJÍ= J!IF THEN47E 
LSEIFHJt =B PTHEN49ELSEIFHJl= ,f 

rmmmm 

49 CLSlPRINÍTrepare o casset 
e" 

50 PRINT "<£NTER>KCGNTRÜL}+<5 
T0P> p í voltar B :S0SUB69 

51 0PEN " CAS: “FDfilNPLÍTAS#! 

52 INPUTIIjNUF 

53 FGR I =0T0NF : INPDT 4 1 , D í I } , AT 
(I):NE3tn 

54 FGRJ=GTüNI:FÜfiI=QTDNF: IFAT 
ÍIl= i N rt THEN57 

55 IFAT(I)=“A*THEN5B 

56 PRINT-ERRO BE LEITURA" :G0S 
UBò9;BQT023 

57 IHPUT#1,XÍI ? J) :eOT059 

50 INPUTiljAUí J):NU=NI+1:IFN 
U-J=0THEN43 

59 NEXTJ f 3 : CLÕ5E; B0TG43 

60 CLS: IMPUT-Nome do arq, a s 
er ebaaac!o*;CUÍ 

61 ÜPÊN J, A:"+CUÍ+\ARirFORINPU 
TASil 

62 INPUTI1,NI,NF 

63 FOR I =0TDNF : 3 NPUTI1 , IH I ) r AT 
(DINEXTI 

64 FORJ=OTONI:FDRI=ÕTONF: IFAT 
U>=“N U TH£N66 

65 IFAT(I)="A“THEN67 

66 INPUTfÍ,jf(I f J):GDT06S 

67 INPUTil, AíI t J) :NU=)IU1: 1FN 
U-J=0THEN43 

68 MEXTI j JíCLOSE: SQT04S 

69 PRINT: INPUT-APERTE 'ENTER' 
QUANDO ESTIVER PRONTO 1 ;EN 

70 PETURN 

71 PRíNT"Esta correta (S/N) " 

! 

72 INPUTAI: IFA$=“5 B DRA$= # N“TB 
ENRETURN 

73 PRINT "Responda cojb ? S j ou 
f N'":GDT072 

0 



L. M. C. 

LIVRARIA 

— A profundando- se no Expert — Piazá 

— Coleção de Programas para MSX 2 Vols. — 

— Dominando o Expert — Gradiente 

— Hot Data: Gerenciador de Dados para MSX — Watanabe 

— Hot Logo: Primeiros Passos — Lacerda, 

— Hot Word: Processador de Texto para MSX — Watanabe 

— Jogos de Habilidade para MSX — Martins 

— Jogos em Assemòler para MSX — Ravis 

— Linguagem Basic para MSX 

— Mais Jogos e Gráficos para MSX — Cárter 

— MSX Com DisK Driver — Casari 

— MSX Como Programa — Hartnel! 

— MSX Jogos em Ação — Monsaut 

— MSX Jogos para apreender e criar 3 vols, — Burd 

— MSX Gráficos, Conceitos e Programas — Cavanha 

— MSX Guia do Operador — Burd 

— MSX Guia do Usuário — Hoffman 

— MSX Melhores Programas — Alves 

— MSX Prática e Domínio — Casari 

— MSX Programação Assem bíer — Fagot 

— MSX Programas em Linguagem de Máquina — Webb 

— MSX Rotinas Gráficas em Assembler — Webb 

— MSX Técnicas de Programação de Jogos em Assernbler — Fagot 

— Planilha de cálculos para MSX — Watanabe 

— Programação Avançada em MSX — Figueredo 
■— Resumo de Operações do Expert 

— 77 Programas para MSX — ABREU 

— Simulação MSX — Burd 

— Sistema de Disco para MSX — Otiveira 

— Usando o Disk Driver no MSX — Silva 

Pedidos e fofonmações pelo tei: (011) 257S20Q 
Atende-se também peio reembolso postai 
R* Basilío da Gama, 116 — Centro Metrô República — 
Saída 7 de Abril — CEP: 01046 — São Paulo — SP 






Agora você não precisa quebrar a cabeça para escoiher o 
software adequado. 

A Game of time tem o softwear perfeito a preços compatíveis. 
Confi ra: 

Games (todos os tipos) à Cz$ 40,00 

Telefone ou peça catalogo pefo correio: 

REMETEMOS PARA TODO O BRASIL 



MSX 




□f Ume 



Rua Dona Leopoldina, 532 - C/2 - São Paulo - SP. 
CEP: 04278 - Telefone: (011) 63-2818 



74 CLS; PRI NTTAB U 0 ) í ' Cosan dos 


107 PRINTB;AfI,J)!0GTOlO9 


144 PRINHNo. de ca*po ilegal 


do EisteBa :*:PRIHTSTRINGtf3 


10B PRINTUSINGFlJÍU, J) 


H : SOTC142 


9 , 200) :PRIMT 


109 NEXT I : PRINT: RETURN 


145 A='a ser ordenado’ 


75 PR INT‘C -COLOCAR *** 


110 INPUT‘No, do registro a m 


146 FORHOTONF 


L-LISTAR * 


üdificar fl ?J 


147 PRINHCaepo No. “;I+1;D(I 


76 PRIRT"t1-NODIFICAR *** 


íll 1FJ)0ANDJ<N1+2TRENJ=J-1:G 


} 


N-NOVD BANCO" 


GT0113 


148 NEÍTI 


77 PRINT"D-DELETAR *** 


112 FR INI "Registro No, "U; “na 


149 GDSUBH2 


S-SAIR 


o esta no danço" : GDTG1 16 


150 IFAT(M)=’A"THEN157 


78 PRINT"0-BRDENAR *** 


113 G0EUB1G4 


151 FDRI=0T0Hl:0(I>»l:Y(n=Xl 


P-PRDCURAR • 


114 BDBUB71 


M , I ) : NEXTI 


7? D RINT fl J-JUSTr IMF. *** 


115 IFA<> , S"THEHS0SLfÊ9S:G0TCl 


152 FORJ-OTDNI-1 


S-SRflVAR" 


13 


153 FBRHJ+1T0NI: IFVí3K=V(I) 


80 PRÍNT'T-TOTfiLIZAR *** 


116 PRINTíPRIHT^QÍificar out 


THEN156 


MNPRItqR ff 


ro registro EE/N) , ;:SGSUE72 


154 v=YíJ):v(jí=v(i):vii!=y 


Bí PRTNT !l fi-REDEFIN!DGR m 


117 IFA="S !, THEN110ELSE74 


155 O=0íJ!:QÍJ!=0!I):0!I!=Q:G 


f-diretorio* 


113 INFUTNg, do registro a s 


0TG153 


82 PRINT:PRÍNTSTRINSÍÍ39,200; 


Er dêletãdo" ! J 


156 fíEXTI,J;8DT074 


:PRINT' ";:INRUT'C0«ANDD 


119 J=J-l:IFJ>=ÜASDJí=!JirKENl 


157 F0RJ=OTGNI;OÍÜ=I:BÜ!=A1 


" í A 


21 


fijl) INEXTI 


83 IFLENÍfli 01THEM74 


120 PRINTRegsstro 


15B F0RJ=0TGNI-1 


34 RESTDRElFBRí-lTQH 


naa esta no banooVGOTDiSi 


159 F0RI=J+1TCNI:IFB(JX=BII) 


35 REAOC. H: IFÍ^CTHEHCLE: 6DTDB 


121 IFJ=HITHEN125ELSEK=J-1 


THEN162 


7 


f 122 K=K+1:FDRI\0TGNF 


160 C=BiJ):B(8)=B(Ií:B(I)=C 


B6 NEXTI : BQT074 


123 AU,K!=Aü f K+lí:X=U,»;+il 


161 G=üH):0(J]=G(I):0tn=D:S 


87 GNHSQTOEl, 110,113,38, 128,2 


IKEXTI 


OTO 159 


22,223,23,244, 145, 163, 179,264 


124 IFK<NÍ-1THEN122 


162 NEXTI , J : GQTEJ74 


,276 


125 NI=NI-t:PRINT*Bsnco conte 


163 A="Para totalizar" 


38 G0TG260 


»"}NI+lj "registros" 


164 FORMTGNF 


39 [íflTA a C‘,l,*f!" s 2 ) !l D",3, :i S", 


126 PRINT:F'RINT"Deletar outro 


165 I FAT U ? = " H " THENPR I NT " Cé»p 


4, " F " , 5 , 6, "L" ,7 


registro (S/Nl"j IS0BUB72 


0 :»Ü . ’ j I S 1 1 D í li 


90. DATfi , M*,S, "r',9, :: 0",10, “T" 


127 IFfi="S"THEMUBELSET4 


166 NEITI 


, 11, "B", 12,"R',13,"F",'l4 


* 128 A=‘a ser procurado* 


167 6ÜSÜ3142 


91 HI=NI+í:J=NI 


129 FQSI=0TGNF 


168 PRIfiT"Totaliíar todos os 


92 G0ELÍS98 í GOSÜBÍ04 


130 PR INT" Campa No. ' ; 1+1 ;D ( 


registros (S/N) MG3SU372 


93 SDSUE71 


n 


16? IFA=“S"THEN17Í 


94 IFA<-> 1, S“TtffiH?2 


131 HEXTI 


170 S0T3 74 


95 PRINTBanco cooÍÈi";NIH!" 


132 GGS0BI42 


171 ho;ks«:fqri=oton!:!FA="S 


registras. ' 


133 PRINT ‘Entre expressão a s 


‘THEN175 


96 FRINTlPRlNT-Coiccar outro 


er procurada “5 


172 I r AT CWO = J M" THEM174 


registra ÍS/N! , t;E03üE72 


134 IFATW="tj*THENlNPUT)(:L=2 


173 IFA=A(f1C, I! THEN1T5ELBE176 


97 IFA="S , THEií91ELSE74 


:G8TCÍ36 


174 IFXOX (MC, I > THENJ 7 è 


9B CLS;PRINT“No. do registro" 


135 INPÜTAíL=i 


175 T=T+m«,niK=K+l 


i J+l:PflINT 


136 K=0: F0RJ=Ü70MI :QNLS0TO137 


176 NEÍTI 


99 fori=otdnf:príntdíI}; 


,138 


177 FRÍNT:PRINT"TotãI para o 


100 IFfiTíI)=“U"THEMQ2 


137 U=LEN!A): IFLEFTtíAiH, J1,U 


Ldiipo í "iBlBítlllB;" > e ":PR 


101 INPOTA ! I , J 1 1 í 1 I , J) =0: B0T0 


) < > ATHEN 1 40ELSE i 39 


INTUSINGFUT 


103 


138 IFÍ (M, J)<>XTHENÍ40 


178 PR1NTK; "Itens sosados^EO 


102 ÍNPUTXII, JlíAil, J)="" 


139 6GBUB 1 04 : GDSUB69 : K=R+ 1 


SUBÊ9: G0T074 


103 NE5CTI : RETURN 


140 NEXTJ : CLS 


179 N=l: GOTO 130 


104 CLS: PRINT*Regi str o No. u ;J 


141 PR INTKJ "REGISTROS EHC0HTR 


ISO CLS: LDCATE0, 1 1 1 PR INT" QuEr 


+li*agora esta assi®;* 


AB03 , “ : G0SUB69 1 . GOT07 4 


gravar esi í D>i sco ou <F>i ta 


105 PR!NT:FDRI=OTGNF:PRINTDU 


142 PRINT‘Entre o No. do casp 




)}TAB!11)'! 


o ";fi;:lNPUTPi 


ÍB1 HJ(=INKEYt:IFHJÍ=”“THEN18 


106 IFAT i I ) =“H*THEN10B 


143 H=H-1 : IFN>=0ANDN<=NFTHENR 
ETUfiN 


0ELSE IFBJÍ = “ D " THEN1 9 1EL5E181 
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182 CLS:PRINT*Prepare o grava 
dor/fita": BG5UBÍ9 

183 OPEtrCAS; "FORÜUTPUTASti 

184 PRINTIljNI" , 'NF 

185 FORI=OTONFlPRINTfll,I>(II\ 
'ATÍDlNEXTI 

186 FDRJ=0T0NI :F3RI=0TDfiFl ÍFA 
TÍI) = , N"THEÍ118S 

187 IFAIÍI)="A"THEH187 

188 PRINTtl , X í I , J 1 : SGTD190 

189 PRINTtl, AU, J):NU=«I+l:IF 
tflM=0THEN74 

190 NEXTI, JlCLOSE:SÜTD74 

191 CLSlINPUT"Hua] o nnt do 
arquivo "ISO* 

192 QPEN “fi 1 “ *NGÍ + " < ARfT FQRKÍT 
PUTASil 

193 PRINiíl r SIjNF 

194 FDRJ=OTONF:PRINTt! .DCn™, 
"filílí I.NEíTI 

185 FOR'j=OTONl;FQftl=OTGNF; IFA 
T(l)="«"THEt!197 

196 IFATH ) = "fi"THEN198 

197 PRINTtl, X(J,J):G3TGt99 

198 PRINTtl, AiI,J):KU=HI+l:IF 
HU-J*0THEH74 

199 fOTJ,J:CLOSE:GOTD74 

203 PRIHT'Listar todc o banco 
(S/Hl u t:S03UB72 

201 IFA=‘’S"!H£NIl=0:I2=NIl60T 
0205 

202 INPUT "Frisei rs o ultuio rt 
o. do registro " ; I i , 1 2 

203 11=11-1: IFIKGTHENIÍ=0 

204 12=12-1: IF12>HI7HENI2=HI 

205 PRlNT"I(Spriiir definições 
dos campos (S/ff)*; : 6DBUB72 

206 PRINT " Impri mi r o No. dos 
registros tS/N)'i:60SUB72 

207 FRÍ íiíT' 1 ! íspr i cii r o No. dos 
registros ÍS/N)"i;GÜ$UB72 
2C>8 IFfi= i 'S"TH£NPR=lELSEPfi=2 

209 PRIÍlT‘Em ordeicl 1 - Cresc 
ente“:PRIKT l ’2 - Alfabética ou 

Nufienca"; : INPUTPO 

210 IFP0<10RPD>2THEN209 

211 PRIHflipressao justifica 
da IS/N)";:GÜ5UB72 

212 IF/N‘S*THEHPJ=1ELSEPJ=2 

213 PR INT "Formatar caispcs nun 
ericos (S/H)'i:G0SÜB72 

214 1FA="N"THEN22Q 

215 FORI=0TGNF: IFATd K)°tf “TH 
EN218 

213 PRINT"Caepo";I+l}“ (S/N) 

: G0SUB72 



217 IFA="S'THENNFII)=i:E0T021 
9 

218 HF(J!=0 

219 NEXTI 

220 INPUTMlo. de linhas ei br 
anco eotre Reqs. “ ; LE 

221 RETURN 

222 PR INT "Coloque a tabulacao 
para cada campe";FRINT"(0=ffo 

va linha)" 

223 FÜRI=ÜTQNF 

224 FRlNT”Ca£>po No. “:I+l;EU 
) 

225 HEI TI 

226 FORI=OTO(iF:FRINT'Tabuldca 
o para o campo"; 1+1; 

227 IHPÜTT í I) : NEXTI : G0SUB74 

228 G0S8B200:K=I1 

229 I FPG= 1 THEH J =tfELSE J=0 ( K ) 

230 IFPR=1TH£NPRINT" r;j+i. H ) 

a 

231 FGRI=OTGJiF 

232 iFPF=líffEfíPRÍNTG(I) ;B(T6F 

mi; 

233 IF0JO1THEH235 

234 IFTí I! >OTHEfiT=T!IÍ IPRÍNTT 
AE(T); 

235 IFAT(n='rTHE07 

236 PRINTBlfifljJi ;:60TQ239 

237 I FNF ( I) =0THENPfi IN7X 11,3)1 
160TD239 

238 FRINTUSINSFlíSlf.JM 

238 SFKHFTHENIFFJ=1THENIFT(I 
+DOOTHEM241 

240 PR INT 

241 NEfTI:60SUB69:F0RL=lTDLE: 
PRINTlNEXTL 

242 K=K+l: IF«<=I2THEM229 

243 PRIHT'ftLabou a iisíages : 
/‘iHI+irYegs. , :E3SUB69:GCT0' 
4 

•*■>‘24 4 FR INT" Apronte a impressor 
a. " ; 8G3UB264: CLS: LFfi INTCHRÍ í 2 
7) ; "3" j CHPÍ (19) T EQ3UB200: K=I 1 
245 1FP0=1THENJ=KELSEJ=D(KÍ 

244 IFPR=lTHENLPR3NT n l";J;") " 
147 FGRÍ =0T0HF 

248 IFPF=lTHENLPRINTDf I ) S Bi TA 

B I 20) ; 

249 IFPJÍ>1TH£N251 

250 IFT(I)>OTHENT=T(I):LPRINT 
TfiBÍT); 

251 IFATÍIÍ=‘N i, THEN253 

252 LPRINTB; A íl, J) ; : GQ7Ü255 

253 IFNF(I)=OTHENLPRINTX(I,J) 

J ! G0TO255 



254 LPRIHTUSIHSF1{HI,J); 

255 IFKNFTHENIFPJUTHENIFTU 
+11O0THEN239 

256 LPRINT" " 

257 NEXTI 

258 K=K+1 : IFK<=I2THEN245 

259 EGSU869: GOTO? 4 

260 CLS:LOCATElC,ll:PRINT"**e 
Cuidado ***" 

261 LQCfiTEO, 12:IíiPUT"Ja gravo 
u este arquivo ÍS/NÍUUt 

162 IFU$=’S*THEH2é3ELSEIFiJI=" 
N"THEH74 

263 CIS ;CLD SE :K£Y1, ‘COLOR ':K£ 
Y2, " AUTO 1 :KEY3, "GOTO" :t'EY4,“L 
IET":HEY5,’RiJN'+CHPt 13Í1KEY6 
, " C0Í..0R 1 5 , ! , 1" +CHR t f 1 3 1 : FEY7, 
"CLÜADUKEYS, "CONTUFEV?, "LIE 
T " A CH 5 1 1 1 3 ) : KEY j 0 , “ P [IN " ‘ i;EYCN 
: LOCAREIS, 11 SFRINTTWlEHD 

264 FR INT "pressione <3>p/ íb 
pressão"! 1 INPUTIPí lIFIPí=‘S"G 
fi I P*= ‘ s ‘ THEWETURH 

<65 FR IHT" Responda coa SU a l 
G0T3264 

264 PRItfT"Redífinicao ds teci 
as:" 

267 HffUT’Quer redefinir aigu 
bs tecia (S/N) "||0T 

268 SFUQí =''!«" THENRETURN 

268 INPÜT=DaeI a teria (1-10) 
*íT. 

270 INPUT"GuaI a nova funcao 
"iUYf 

271 KEYT, UV4 

272 INFUT-Hais alguaa redefin 
iras (3/N) "JUM 

273 IFUGí = !! N ,r THEN275 

274 60TD269 

275 SOTQ'4 

276 FR I H T “ fit e ncao : so p/ usia 
rios tíe disco i P.RINF "Tecle < 
5> p/ continuar ou < V ) p/ vol 
tar" 

VI ITt=INKEYtI IFZTt=‘"THEN27 
'EL£EIF:T$= :í S ;: TREN 27BELSEIFIT 
t=" l /"THEN230ELSE277 

278 CI.S: PRINT "DIRETOR 10: ":PRI 
NT: FILES; LOCATEO, 21 :FRINT "Des 
eja ver diretorio de outro di 

SCO ?" 

279 NLt=INIÍEY*:IFUL** ,, THEK27 
8IFyLt= !, 3*THEN278EL2EIFLlLt= u N 
“THEN28-0ELSE277 

280 GGT074 
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PROGRAMAS 



TANK ATOCK 



Urial Agría 

Neste jogo, sua missão é im- 
pedir o avanço de tanques 
inimigos que pretendem al- 
vejar o quartel-general das 
forças aliadas. De dentro de 
seu tanque você logo perce- 
be 1 o quanto esta tarefa será 
arriscada: os inimigos, mo- 
vendo-se ao longo da mar- 
gem oposta do rio, são mui- 
tos c não hesitarão cm abrir 
fogo ao perceberem a sua 
presença. Você precisara de 
uma boa estratégia de ataque, 
pois sabe que a inércia inter- 
fere na trajetória dos tiros, e 
a munição é limitada. Provi- 
dencial mente, no entanto, 
um poderoso radar o auxilia- 
rá, informando a cada movi- 
mento a posição d< >s tanques 
inimigos no front. 

Você começa o jogo com 
5 vidas e a cada 5,000 pon- 
tos recebe uma, vida extra. 
Por outro lado, se for alveja- 
do por um tanque inimigo 
ou este alcançar o quartel-ge- 
neral, situado à esquerda no 
vídeo, você perde uma vi- 
da, A cada 15 tanques atingi- 
dos tem lugar novo estágio. 

O loop central do jogo é 
escrito em Basic, mas duas 
pequenas rotinas em lingua- 
gem de máquina se encarre- 
gam da movimentação da te- 
la, Então não perca tempo: 
Tome lugar no seu tanque, 
impeça este ataque c sinta-se 
um verdadeiro Rambo! 



10 REH MISSÃO: TANK ATTACK 

2 0 EEM UR 3: EL A BR I A - NB X M ! CEO 
30 

40 CLEAE200 . 6 i A 39 ! í DEF I NTA- Z S ÜPEN 11 GRP r, 
!l AS# I ; I -RN D £ T I ME ) : OU í NTERVAL— i 5 080 SUB 

j, 000 

50 C D im $ B , í - 1 : SCREEN2 , 2 : GÜSUB 1 860 : G0 
SUB 1560 “ INTERVALOFF: BEEP: COLOR, 4 
60 BV« 1 : SC ! «0 : i .. I -s : EX ! &sooo 
70 TA— 0; BOBUBí 4 10 
80 GÜSUB I 170 
90 HE**ô: HFÍ-0 

J oo F S«0 : X -760 : S 1 =0 : PUT SPR I TE9 , (X/21 + í 

0 „ 3, 0 ) „ 1 5 , 3. 0 

1 J- 0 FOR Q = í T 0 2 : GOS U B 9 9 0 : N E X T 
120 

3. 3 0 D - S 1 1 C; K < 0 ) : E » Ei T I C K ( 1 ) 

3 40 .1 F D ~ 0 AN DE 0 T HE' N 1 80 
J. 5 O I FD= 3 0 R E = 3 T HE N 2 90 

1 6 0 I F D = 70 R E™- 7 THE N 3 1 0 

J. 70 PUTSPR I TE 9 . ( X /2 3. + 1 0 . j. o > , ;i 5 , 3, 0 

3 80 IFEl = 3, THEN23Q 

1 9 0 I F ST R l G ( 0 ) = 0 A N D S TR 1 0 l 1 > « 0 ANOS T R 3 G i 

2 i «OTHEN3BO 

200 IFSF >24THEN380 

2 í 0 S 1 = 1 : S T <f 39: S Y ~ 1 2 5 5 S X = 1 2 7 :: SR = -9 
120 £30 SUB 3. 3 30 : SK»SK+ 3 : L I NE C 250 „ 0 ) - ( 250 
SK*T , b) . I. BF 

2 3 0 S Y = S Y +S R : 8 R = SR + 3, : S T = 8 T + 1 
240 IFSR>- 1 THENBR-- 1 

250 I FST=5 4 TT IENS 1=0: G0SUB34 0 : S X =256 3 S Y 
- 3. 92 

260 PUTSPR I TE 1 , í S X , SY ) , 6 . ST / 3 
270 G0TÜ3B0 

280 X = X + 4 ; IFX > 1 600THEN X = 3. 600 : GO TG 1. 80 
2 9 0 D = U S R 1 C 0 ) ; S X =S X -4 : F X ~F X - 7 
300 GOTO 170 

3 3, 0 X = X - 4 : IFX < 0 T H E N X = 0 : GO T D J. 80 
320 D=U SR C 0 > : S X-S X +4 : F X =F X +7 
330 GOTO 170 
340 " 

350 FDR 1= 1 TÜ2 



ae MSX Micro 



360 IFX < I ) --X+ST C I KBX+4ANDSXH 4<X ( I ) -X + 
15-8TU ) THENSSO 
370 NEXT: RETURN 
330 5 

390 FQR 1= 1 T02 

400 I FD C I ) = 1THENIF INT (RIMO ( 1 ) *40)-lTHEN 

Q— I : G0SUB990ELSE510 

410 IFHE~1 THENól 0 

420 X í I ) =X Cl) -BV 

430 IPX < I ) C-67THEN12S0 

440 PUTSPRITE6+I, <X (I ) /21+7, 13- ST (!) ) , 

15,17+ ÍHE“T ) ~ C I™2ANDHE=1 ) *2 

450 IFX Cl ) --X < - 1 5ÜRX (I ) -X >255TMENT í I ) 

E : FUTSPR T TE 3+1 - < 256 ,192), 0 5 20 : PUTSFR I T 
E 13- (256, 192) , 0, 20: GOTOS 1Ò 
460 :EFT( I) “OTHENIF INT ÍRNDC1 ) *20)^1ANDH 
E-QTHENT í I > = 1 

470 1F1NT (RND í 1 ) *30) «1 ANDHE-OTHEMT ( I ) ® 
0 

400 I FT ( I ) = I AND I NT (RND ( 1 ) *25) -1TBENGQS 
UB5S0 

490 I FHE= i THENPUT BPR I TE4 , < X C I ) -X. 69 ) , 1 
, 8+ (HR=~1 ) : PUTSPRI TEi 3, CX <I)-X, 85) ,1,1 
1 S GOTOS 10 

500 PUTSFR ITE3+I , C X C I ) -X „ 70) P 1 , ST C I) +S 
T < D— 1 ■ +T C I ) 



510 IFFS=0THEN56Ü 

520 FY-FY+FR: FR=FR+1 : Fl— Fl™ 1 

530 IFFX<0ÜRFX>255THENFS-0: FX™256: FY=1 

92 

540 IFF1“65~ (HE=1 ) *3THENG0BUBé70 
550 PUTSFR !TE2 S CFX , FY ) f 1 T F 1 75 
560 NEXT 
•5 70 GOTO 120 
500 IFFS--1THEMRETURN 

590 GÜSUB1 130:FS=1:FX™X <I) -X+4; F1-B9+Í 
HE=1) *3:FY=74:FR-"0” (HE=1 ) *4 
600 RETURN 
610 * 

620 IFX >X í 1 > THENHR-1 

630 IFX+255<X < 1) THENHR«-1 

640 IFX Cl ) --X >OANDX'< 1 ) -X< 255 AND INT (RND C 

1> *20 > = 1 THENHR-^HR 

650 X ( 1 ) - X < 1 ) +HR* ( 1 +SV ) 

660 GÜT0440 
670 3 

680 FS“0: I FFX >2400RFX< 15THENFX'=1 00: FY” 
84 

690 IFPOINT C F X , FY + 7 ) = 1 OANDFO I NT C FX+7 , F 
Y+7) =10THENFX-256: FY=1 92: RETURN 
700 FX=256! FY-192: PUTVARPTR2, CFX,FY),0 
f 20: GO SUB 1 1 30 
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Diskette para MSX Cibertron. 

De concepção avançada, com modernas técn i cas de programação e man uais 
total mente em português, é o mais rápido no carregamento do programa Em al- 
guns segundos você tem operação completa, com eficiênciae muita facilidade. 
Diskette para MSX Cibertpon. Não deixe de ver e rever este programa 

Veja a seguir os aplicativos profissionais, domésticos e de entretenimento em 
diskette para MSX Cibertron. São vários títulos de grande utilidade para vo- 
cê. No trabalho, em casa e no lazer. / Y_ 7 



ASSEM BLY & 

PESASSEM BLY 

Assembly-Totalmente relo- 
cável, editor incluso, ma- 
cros, assemblagem condi- 
cional, extrema rapidez de 
compilação, Desassembly- 
Execuçáo passo a passo, 
múltiplos pontos de inter- 
rupção, cópia inteligente. 



CONTROLE DE ESTOQUE 

Permite processar de ma- 
neira ef ici ente uma quanti- 
dade indeterminada de re- 
gistros, limitados apenas 
peia capacidade do disket- 
te. Inclui códigoe nome do 
produto, fornecedor, unida* 
de, quantidade, quantidade 
mínima, preço de compra, 
preço de venda e data de 
validade. 



MSX *WORD 

Processador de textos. 
Ideal tanto para uso domés- 
tico quanto profissional. 
Permite o armazenamento 
de até 480 linhas. 

Inclui busca de palavras, 
movimentação de blocos, 
reformulação de parágra- 
fos, brocagem, def i ni ção de 
margens, duas páginas de 
auxílio ao usuário etc. 



Games. Em cada diskette Cibertron très jogos emocionantes, com alta resolução gráfi- 
ca a cores e som fantástico. 



• P1TFALL II 

• TBEZEUS 

• GALAGA 



* GOONIES 

* ALPHA SQUADRON 

* EXERION 



» NORTH SEA NEUCOPTER 

• KN1GHT MARE 

• ANIMAL WAR 



EM ALGUNS 
SEGUNDOS, 
MAIS UM 
CAMPEÃO 
DA 

TECNOLOGIA. 



OBERTRDn 

Vix SOFTWARE 



Caso você não encontre o programadese- 
jado, escreva para: 

Cibertron Eletrônica Ltda. Caixa Postai 
17.005 CEP 02399 - Sâo Paulo SP 

Revendedores autorizados: AKOPQL, AU- 
DIO, BRENO ROSSI, BRUNO BLOlS, GUE 
DES, MAGNODATA (Te!.: (011) 255-7653), 
MAPPIN, SHOP AUDIO & VÍDEO (Sto. An- 
dré), Cl NÓTICA, AM AROSOM, LÓGICA (For- 
taleza), B. KAUFFMANN (Santos), MEMÓ- 
R1ASOM EVÍDEO(DF) 









710 LINE£40>40>-(215*48) * 12* 8F: COLORI S 
PSET ( 64 , 41 ) * 1 2: PRI NT# 1', " V QCE FOI A T I NG 
I DO r ,r 

720 FORJAI T050 : COLOR „ , S: F0RQ«1TÜ40: NEX 
t: color* , 1:FORO=1T040:NEXTG„ J 
730 LI“LI-1:B0SUB1S00: IFLI^OTHENRETURN 
770 

740 GOSUB 1540 

750 L 1 NE ( 40 , 40 > - ( 2 1 5 . 4 8 ) , 4 , BF 
760 RETÜRN 
770 ’ 

780 GOSUB 1 160 

790 S0UND7 . 56 : PLAY " D5DEFDEFGEFDEF r DGEFD 
D M 

SCO L I NE í 24 , 33) — í 231 * 83 > * ó, BF : L INE <26 * ■ 
35) -(229,61 ) , 1,B: COLORI S PSET < 95 1 37 > „ 6: 
PR INI# 1 j, M f f ACABOU! ! " 

B 10 PSET í 70» 51) ,6! COLOR 1 5: PR I NT# 1 , Jl NO 
V AMENTE ( S/N ) ? Ir 

020 1 F BC f > HS ! T HE r4H S ! «8 C f : GO S UB 1 5 2 O 
830 F0RI=lT050iK*=INKEY*: NEXT 
840 K*=INPUT*(1) 

850 I FKí- ,í N ,r DRK$“ "n " THE NC OLOR 15,1* 1 : EN 
D 

060 I FKÍ— "S n ORKÍ- " s " THENBEEP : G0T060 
370 G0TÜ84Ô 
800 * 

390 PUTSPRI TE 13, (256,1921,0,20 
900 PUTSPR ITE6+I, í X í I > -X-2 , 70 > , 6, 9 : PÜT 
SPRITE3+I, <XU)”X,70) * 11 , 9! PUTSPRITE1 , 
(X (I ) -X+-2 , 69) ,6,9 
9 1 0 GO SUB 1 1 30 

920 SC ! -SC ! +50* ST (I ) : GOSUB í 460 : TA”TA+ 1 
: LINE (255, 16 ) ~ Í250~TA*6, 2 1 > T 1 , BF 
930 FORT- í TO 1 500: NEXT 
940 DÍI)®1: X í t>«=3000 

950 PUTSPR ITE3+I , í 256 ,1 92) * 0 * 20 : PUT3F-R 

ITEÓ+I, (256, 192) , 0,20 

980 I FHE- 1 THEN1 040 

970 I FT A= 1 5THEMHE= 1 : Q- 1 : GOSUB 1 000 

900 RETÜRN 

990 IFHE- 10R ( TA- 1 4 AND ( D í 1 ) =-GÜRD (2 ) -0 ) ) 
THENRETÜRN51 O 

1 000 T (Q) “0 : ST í Q) -RNB (Q ) *3+ 1 : D <Q) =0 
1 0 10 X < Q ) ”RND í 1 > * 1 1 00+500 : I FX ( Q > -X > - 1 6 
ANDX (O) -X<256 THEN 1010 
1 020 I FHE- 1 T HENST <1)=0:D<2)-1:XÍ2) -300 
0 

1030 RETUEN 
1040 * 

1050 INTERVALON: FpRO- 1 T02000: NEXT 
1060 GÜSUB1 180: J“0 

1070 LINE <24, 33) “<231, 63) , 1 ¥ BF : L I NE (26 
,35) - £229,61) ,11, S : COLOR9; PSET í B8, 37 ) , 

1 : FR INT# 1 . "VQCE GANHOU * 11 : COLOR 1 3 : PRI NT 
#1. n PRESS, UMA TECLA PARA COLOR 

2: PRINT#1 , " COMECAR OUTRO ESTAGIO 

1 080 L r NE ( 00 h 1 60 ) - <1 79 , 168) , 6, BF: COLOR 
J : PSET <07 , 161 > T 6: PR INT# 1 , " DO MUS : " ; : CQL 
URI 5 :: PR I NT# I * 30*2000: SC ! -SC ! +SV+2000 
1090 SV=2: GOSUB 1460 
1100 FORI ”11050: Kí“INKEY$: NEXT 
1 1 í 0 K f - 1 NKEYT : I FKÍ ” 1 1 " THEN 1110 
1 .1 2 0 I N T E R V AL OF F : BE E P S R E T U R N 7 0 
1130 ? 

1140 SÜUNDO* 0 : SOU MD 1,5: 5 □ UH D 2 ? 0 í SUUND3 
,13: S0UND4 - 255 : S0UND5 ,15: 5DUND6, 30: SOU 
ND7 , 0: SDUND8, 16:S0UND9, 16,'SOUNDIO. 16:9 
OLJND 11,0: SDUND 12,5: 80UND 1 3 ¥ 0 : SOU ND 12,5 
8 

1150 RETIIRM 

3 1 6 0 F O R J - 0 TO 1 3 : PU T SP R I T E J H (256, 1 92), 0 
, 20 : NEXT: RETÜRN 
1 1 70 ? 

1 1 80 L 1 NE ( 0 ,79)- (255 * 79 > * 1 4 : L I NE ( 0 * 00 ) 
--(255 . 180) ¥ 10 * BF 

1 1 90 PR ES ET (0.71): FOR I =OTG255STEP0 S L IN 
F- í I +4 , 6B+RND Í1 ) * 1 0 > , 1 4 : L I NE» ( I +8 , 60+R 
ND (1 > * 10) , 1 4 ; NEXT : PA I NT £ 0 „ 70 >,14 



1200 GOSÜB 1230 

1210 DRAM " b m40 , 1 00c 1 2m60 , 1 S5m90 . 1 50m 1 7 
0, 150m200, 1 55m220, 1801 180b ml 22, 149clml 
25, 126r 1 Oml 38 * 1491 16" : PA INI (45, 179 ) „ 12 
: PAINT (125, 148? - 1 : CIRCLE ( 1 30, 172) , 15, 1 
, * , * 43 PAINT í 1 30, 176) , 1: CIRCLE í 130, ISO) 

, 3 1 , 1 , 3 , 1 6 ■ , 7 : PUTSPR ITEO, (123,71)^1,0 
1 220 A-USR3 ( 0 > ; RETÜRN 

1 230 PRESET ( 0 , 1 06 > : FOR J -0TO255S TEF 24 S L 
I NE™ < J+24 , 1 04 +RND ( 1 ) * 4 ) , 5 : HE X T 
1240 F>RESET(0, 116): FOR j=0TG255STEP24 5 L 
INE- (J+24, 1 14+RND < 1 ) *4) . 5; NEXT: PA INT (0 
, 107) , 5; RETÜRN 
1250 * 

1260 S0UND7, 56: PLAY"a4Fdqeíf dgtâí-f dgef f " 
1270 LINE <23, 40) -(231, 48) , 12» BFíCOLORl 
3 PSET < 25 ,41) . 12: PR I NT# 1 , " 0 TANQUE AT IN 
GIU 0 QUARTEL" 

1280 FOR J-1TQ9999: NEXT 
1290 SCREEN2: A"USR2(0) :G0SUB1410 
J 300 I.. I NE í 0 . 80 ) - < 255 , 1 80 ) , i 0 , BF : L I NE ( 7 
8, 79) ”(255, 79) , 14 

1310 FRESET (79,79) : F0RJ^79T0255STEPS : L 
INE- í J+4. 68+RND í 1 ) *10) , 14: L INE“ < J+B , 60 
+RND í 1 ) *10) , 14: NEXT: PA I NT ( 1 00 , 78 ) .14:0 
0 SUB 1230 

1320 LINE (32. 82) ”(55. 72) ,15, BF: LINE (35 
,74) -(37,76) , 1 . BF : LINE (52 , 74 ) » ( /2 , 76) ? 
IhBFJ LINE ( 42. 02) ”(45, 74) , 1 , BF 
1330 DRAW" c:6bfi>30 , 72e5r 1 6F51 26 n : PAINT (3 
5,71) , 6: A”USR3 ( 0 > 

1340 F0RJ-255T0 1 30STEP— 1 : PUTSPR I TEO , (J 
, 70 > * 1 f ST ( I ) +ST ( I > - 1 : FORQ-1 TG40: NEXTO. 

J 

1 350 GOSÜB 1 130: F0RJ-122T0555TEP-1 : PUTS 
PRI TE 1 , ( J, 71) , 1, 17: FORD— 1T0 10: NEXTO - J 
1360 G05U81 130: PUTSPR ITE1, (20, 69), 6, 9; 
PUTSPR ITE2, £36, 71) ,6, 9: PUTSPRI TE3, (41, 
60) 6,9: FORJ- 1 T03000: NEXT 
1 37Ó LINE (16, 40 ) - ( 239* 56 > , 1 2 , BF : PBET ( 3 
6,41) , 12: COLORI : PR INT# 1 , " Ò QUARTEL FOI 
DESTRUÍDO E OOCE PERDEU UMA 

VIDA" 

1 380 SOU ND 7 * 56 : PLAY ri o4 f ed f edqói eqg " 

1 390 L I I - 1 : GOSUB 1 500 ; FOR J = 1 TO 999 9 : NP 
XT: I FL I “0THEN79O 

1 400 A-USR2 £ 0 ) : GOSUB 1 1 60 S L I NE < 0 , 33 ) » ( 2 
55, ISO) f 4, BF : GOSUB 1 1 70 i A= s USR3 ÍO ) : GOTO 1 
00 
1410 

1420 SCREEN2: A— USR2 < 0 ? : COLORIS: LINE <0* 
0)” (255, 32) , 1. BF:L1NE(0, 1S1>™£255, 191) 

, 1 , BF 

1 430 PSET (31.0) * 1 : PR I NT# 1 , " RADAR : " ; L I X 
E (7, 10) ”(105* 30) - 1 5* B; DRAW 11 c 1 5bm 1 5* 2Sc 
2dlr80uld2" 

1440 PSET (111,0) , I : PR!NT#1 , "MUNI: " : GOE 
UB 1 540 : PSET (111, 15) , i : PRI NT# 1 . " TANKS; " 
: GO SUB 1550 

1 450 PSET (3- 1 83 ) * 1 : PR INT# 1 „ " PONTOS 

V IDAS MAX " : GOSUB 1 460 : GOSUB 1 300 : G 

□SUBI 520: RETÜRN 

1460 A$” " 000000 " : DH-STR1& (SC ! ) : Q-L.FN ( B* 
>”1 :MID*<A$ ,7-0, QJ =RIGHTf (Bíl.Q) 

1 470 L I NE < 3 03-0*8 , 1 83 ) -■ ( 1 Ú $ . 1 9 1 ) . 1 , BF : 
PSET (55, 103). l: PR INI # 1 . Aí 
1 480 I FSC ! >-EX ! THE NE X ! -EX ! +5000: L I ”L í + 
1 : GOSUB 1500 
1 490 RETÜRN 

1 500 COLOR 1 5 : L I NE < 1 59 „ í 03 ) “(160. 191) * 1 
, BF: PSET ( 151 , 103) , i: PRINTttl .LI 
1510 RETÜRN 

J. 5 2 Cf A í'=" 0 0 O 0 O 0 1 ' 1 : B $ R $ ( H S ! ) : Q = L E N ( B í 

>”l:MÍD* <AS,7”Q, Q ) =R I GHTí (Bí, Q) 

1 530 L I NE ( 235-0*8 , 1 83 ) < 255 .191), 1 * BF : 

PSET ( 207 , 1 83) . 1 ; PR INT# 1 .. Aí : RETÜRN 
1 5 4 0 SK ” O : F D R J * 1 5 1 T 0 1 4 7 ■ c 25 - SK ) * 4 S T E 
P4 : DRAW" bm™ j ; . 6r21 lu5" : NEXT: RETÜRN 
1 5 5 0 F d R J làí T 0 1 5 5 + U 5r ■ T A ) * 6 S T E P ò : DR A L 
r ‘ c 7 bm= i í , 2 1 r 2e 1 h £ 1 2a i b r • 2u 3 1 2r3d 1 " : HE X 'I 
: RETÜRN 
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1560 

1570 j=0: iNTERVALONrGOSUBiSOG 
1 580 A~ USR2 í O > : SCREEN2 : L I NE ( 0 , 0 ) - < 255 . 
36) . 4 , BF 

1 590 DRAW “ c 1 bm5, 6e 1 r 1 89 1 d3g 11 6a 1 d20a 1 1 
2h .1 u20h 3 ) 6h 1 u3bm30 í 6e 1 r 1 89 3 d25g 1 1 2b i u 1 
Oh 1 1 1 Oq 1 d 1 Og 1 1 2h 1 u25bfn34 , 1 Oe 1 r 1 09 1 d5q 1 
1 lObiuS" 

1 600 DRAW ,r bm55 , 6e 1 r 29 1 d4F 1 2u 1 6e ir 2f id2 
5g 1 1 2h 1 u4h 1 2d 1 6g 11 2b lu25bmB0 ? 6e 1 r 2* ld 1 
Oe 1 1 f 3g 1 1 9 1 0q3h 1 Od 9q 1 1 2h 1 u25 " 

1610 DRAW ,r cl5bml 10 , 6e ir 189 ld25g 1 1 2h 1 ul 
Oh II 1 Oq 1 d 1 Oq il 2h 1 u25bm 114,1 Oe 1 r 1 09 1 d5g 
1 í 10h 1 u5bm 1 35, óelr 1Q9 ld3q 11 6g 1 d20q 1 1 2h 
1 u20h 1 1 6h 1 u3bm 1 60 , 6elr 1E9 ld3qll ógl d20q 
1 1 2h 1 u20h 1 1 6h 1 u3" 

1 620 DRAW " b m 1 05 , óe 1 r 1 8 9 1 d 25g 1 1 2h 1 lc 1 Oh 1 
1 1 Og ld 1 Og 1 1 2h 1 u25bm 109,1 Oe 1 r 1 0f‘ld5g 1 1 1 
Oh 1 Ü5bm2 1 0 , 6e lr 189 1 d7q 1 1 2biu3h 1 1 1 Og 1 d 1 
7f 1 r 1 Oe 1 u 2e 1 r 29 1 d 6g 111 Sh 1 u25bm235 , óelr 
29 ldlOel 1 93qi 1 9 Í0q3h 10d9çj 1 1 2h iu25" 

1630 FORl^7TÜ02STEP25:PAINTa ,è) , 1 : NEX 
T : FOR 1 = 1 12T0237STEP25: PAINT <1 , 6) , 15: NE 
XT 

1640 DRAW" hm 1 00, 63 r 4 Ou 31 20d3r3Õu5r 5u5r 
i 0u21 1 Ou 21 1 Od21 2d5r 2u5hr4bd 1 r3b I 7d6r4d 
5r 10d35r80d201 200q 1011 0e30r 1 1 01 ÓOu 1 3m7 
• 73u 1 Om 100 , 75u 1 2bm45 , 1 23r 1 B5bm23B, 1 39 m 
217, 157bfn70 ? Í60rl40bm37, 140m64- 158bmi2 
0 , 1 1 Iu7r2f 1 d3r5u4r 59 4q41 5u41 5d3q 112" 
1.650 CIRCLE (45, 133) , 10 ; CIRCLE <45, 133) , 
3 : CIRCLE ( 230 , 133) - 1ÒS CIRCLE C230, 133) .3 
: FOR 1=701021 0STEP2O; CIRCLE í I, 153) , 7; Cl 
RCLE í I , 1 53 ) , 2 : NE X T : FOR 3>8QT02 1 0STEP30 : 
CIRCLE (1 , 127) ,3: PSETÍ I , 127) : NEXT 
1660 COLOR 12 fPRESET (47, ^ü> :PRI1MT#1 . "MS 
X MICRO St URI EL A GR IA " 

3. 670 CÜL0R8 : PRESET (71,183): PRI NT# 1 „ Jr I N 

STRUCOES <B/N)? ,J 

1680 FOR I - 1 TÜ50 : hf- 1 NKEYf : NEXT 

1 690 m= INKEY$: IFFi- " " THE NI 690 

1700 IFK$= " S H ORK$” " s M THEN1 730 

1710 I FK%*=" N » ORKÍ = "n " THENftETURN 

1720 GOTO 1690 

1730 INTERVALOFF: BEEP: CLS; RESTDRE2100 
1740 DRAW " b m55 , Or 1 44g 51 134h5d30r 1 44u3Ô 
q5d2095h51 1 34q5e5u20 " : CDL0R3 :: PRESET (03 
,12) :PRINT#1 - "TANK ATTACK 0 : COLOR is: PUT 
SPRITEO* <20,8) T 5, Bl PÜTSPRITE1, <219, B ) , 
5,7 

1750 FOR I "35T01 72STEP9: READAí 
1760 PRESET (7, I) : PRINT#1 „ A*: NEXT 
1 770 C0L0R7 : PRESET (70,183): PR I NT# 1 , "PR 
ESS, UMA TECLA 

1780 FORI-iT050SiK$™INKEY$: NEXT 
1790 Kt=INPUT^ <i ) : RETURN 
1800 ? 

1810 J=J+1 : IFJ>4THENJ«4: RETURN 
J 820 A$= "cr.al 6a * a 1 6a4 acc . a 1 6a , a 1 6b —r S 
Og* 9 1 6e, 9 ló.g- a 16b-, qSdléd, cl6ço4ba5c , o 
4b — 1 6a , □ 1 6a 49 49 . 9 1 69 * el 6d4b— 4b-'4r8'o5dd 
. c 1 6c c c , d 4b -■ 1 6b ~eq 9 f 9 9 r 8 " 

1830 S0UND7, 56:B$”MÍDf f Aí, CJ-i) *32+1,3 
2) 

1840 PLAY"nj5000sll8>:b$: lr 
1850 RETURN 
1860 " 

1 S 70 RE ST ORE 1 920 : FORSC ! ~6 1 4 4 O ! T06 1 569 : 

: READJ : PGLESC * ,J: NEXT: DEFUSR=6 3 442 f ; DE 
FUSR 1 -61493 ! S DÊFIJSR2“65: DEFUSR3-68 
1 800 FOR I « 1 4336T0 14714 
J 090 READAtt ; VPPKI" I , VAL. < 11 b.h lr + A4i ) : NEXT 
1 900 FOR I‘h 1 4752T0 3 4880STEP32 1! F0RJ-0T07 
: READAít SI VPOKE 1 +J , VAL í "U\ " +At ) : NEXT J , I 
1910 RETURN 

1920 DATA9, 7, 38, 240, 46, 0, 70, 35, 126, 120 
ü 71, 1 26 * 46 * 223 , 38 , 23 , 3 7,32,0,25, 16, 253 
, 87 ,6,31,14,1 53 , 203 , 1 01 , 240 , 95, 43 . 205 , 
1 0 1 h 249* , 35 , 205 ,1 14-2 40 1 4 3 



1930 DATA 16, 245, 123,205, 114,240,43,21, 
175, 186,32, 227, 201 

1940 DATA38, 240, 46,0,70, 35, 126,46,224, 
38 , 23, 1 7‘, 32, 0 ,25,16, 253 ,87,6,31,14,153 
, 205, 101 , 240 n 95 , 35, 205, 101 , 240,43,205, 
114,240,35 

1950 D AT A 16, 245, 123, 205, 114, 240, 35, 21 , 
175, 186, 32, 227 f 201 , 243,237, 105,237,97, 

13.0. 0.237. 120. 12. 251.201 

1960 DATA243 , 237 , 105,8, 124,246,64,237, 
121,8, 13 f 237, 121 , 32,251 , 201 
1 970 D AT AO 1 ,01, 0 1 , 0 1 , 01 , 01 , O f 9c , 9c , O f 0 
1,01,01,01,01,01, 80, SÓ , 80 , 00 , 80 , 80<0, 3 

9.39.0. 80. 50. 5Ü, 80, 80, ao 

1 980 DATAO, 0, 0,07 , f f , 9 9 , 07, 79 „ 4 f s f 9 , 80 
n 79 n eO , ed , 4d , 39 , 0 , 0 , O , eO , eü , eC> , eO , 9 e , 9 
9,99,01 , 9e,07,b7.,b2,9 o 

1990 DATA01 , 01 , 0 1 , 07, 06, 06, 07 , 79 , 9 9 , 9 9 
h 00, 79 , eO , e?d , 4d , 39 , 80, 80 , 80 , eO , 60 ,60,0 
0 f 9 €? , 9 9, F 9 ? 0 1 , 9 e , 07 n b7 ? b 2 , 9 c 
2000 DATAO ,0,0, O f 03 , 39 ,03, 19 , 39 ,20,19, 
30 , 1 5 , 0 f , 0 0 , 0 , 0 , 0 , 0 , eO , eO , eO , 9 c , 9 & m 02 
h 9c, 06, 54,98,0,0 

20 1 0 DATAO , 0 , 0 , C* , 03 , 03 , 03 , 1 f , 39 , 20 ,19, 
30 , 15, 09 ,0,0, 0 , O j, 00 , 8C) , 60 , 60 , e9J , 9c, 9 p , 
02, 9 c , 06 , 54 , 9 8 , 0 , 0 

2020 DATAO , 0 ,0,0, 0 , 07, 0 1 , 07, 09 „ 07, Od , 0 
7 , 0- 0, O , O, 0, 0, 0 , 0, 0, cO , cO , 9 0 ,98,90,58, 

90. 0. 0. 0. 0 

2030 DAT AO , 0 , 0 ,0,0,01, 0 1 , 07, 09 , 07 , C^d , O 

7.0. 0.0.0.0-0-0*0,80, 40, cO, 90, 90, 90-58 
, 90, 0,0, 0, 0 

2040 DATAO, 79-02, 07-39 , 47 , c7, 9 9 , 9 9 , 79 , 

39. 12.92. 79. 0. 0. 0.90.0.01 , c 3 , 99, eO, cO, 
cO , 80 , 0 , 0 , 0 , 80, O, O 

2050 DATAO , 09 , 0 , 8 1 , c 3 , 9 9 . 07 , 03 , 03 , 0 1 , 0 
, 0 , 0, 01 , 0 , 0 , 0 , 9 e, 40 , eO, 9c , e2 , e3 ,99-99, 
fe, 9c, 48 *49,9 e, 0-0 

2060 DATAO , 02 , 02 , 40 , 24 , 07 , 4 9 , 1 d „ 29 , 09 , 

7 f , 08 , 04 , 02, O, 0 , 0 , 20 , 02, 84, 80 , f 0- 9 4 „ 9 O 
, 90, dc, 92,28, 24,22, 0,0 

2070 D AT ABO , 80 , 80 , 80 , 80 , 80 , 80 , BO , 80 , 00 
, 80 - 80 ,81-81- 87 , 87,02,02-02,02, 02,02,0 
2, 02, 02,02, 02,02, 02-02, q2, c2 
2000 DATAO, 0,0,0, 0 , 07 , 39 ,99,99, 39 , 07 , 0 
* 0, Q, 0, 0, O, 0 , O, O, O,, 00- 9 c , 9 f , 9 9,9c, eO 
2090 DATAI B , 3c , 7e ,99,99, 7e ,3c, 18,0, 1 B , 
3c, 7e, 7e,3c, 10,O S O,O, 18, 3c, 3c, 18,0,0-0 

,0*0, 18, 18,0,0, 0 , 0, 0 j, 0 , 0 , 08 ,0,0, 0 

2100 DATA M Nei=te jogo voce tem que cont 
,ro" H 

2110 DAT A " 1 ar um t an que , i mped 1 n d o o a v 
an - " 

2120 DATA" CD dos inimigos que tentar ao 

2130 DATA" destruir seu quartel general 

2 i 4 O DATA" P od en d o m o v e r s eu t a n q ue ate 1 

2150 DATA m üs limites do campo de aeao- 

2160 DATA "e ainda se qui ar pelo radar 
e " 

21/0 DA TA "observar i n i mi aos , sendo □ to 
tal " 

2180 DATA "de 15 tanques e um helicopt 
ero, " 

2190 DATA "nara poder passar para o pro 
a . " 

2200 DATA "ostaqi o , estando o seu quart 
ei " 

2210 DATA "a esquerda, Vace morrera se 
u(n" 

2 2 2 0 D A 1 A " t i r o a c e r t a - - 1 o . a u se um t a n q 
u e " 

2 2 30 DA TA "ch e q a r a d s & u quartel - ma v □ 
c. q " 

2240 DAlA if receber a uma vida eu; tra a ca 
da " 

2 7 5 Ò D A TA" 5 0 OO pontos. ' ' 
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PROGRAMAS 



DRAW EDITOR 



O BASIC MSX possui um re- 
curso muito interessante pa- 
ra criar desenhos nas telas 
gráficas SCREEN 2 e 
SCREEN 5 , que é muito pou- 
co utilizado pelos usuários 
do sistema. Trata-se da Ma- 
cro-linguagem gráfica resi- 
dente no próprio interpreta- 
dor BASIC, que mediante 
uma serie de comandos es- 
peciais permite a criação de 
gráficos sofisticados de uma 
maneira muito natural, tal 
qual estivéssemos desenhan- 
do com lápis de cor na tela 
do nosso micro, 

Na realidade, esta ma- 
cro-linguagem possui apenas 
um comando, o comando 
DRAW, cuja sintaxe é descri- 
ta abaixo: 

DRAW string 

Esta string poderá ser 
uma constante ou uma variá- 
vel alfanumérica, e o seu 
conteúdo deve ser compos- 
to de um conjunto de or- 
dens especiais, denominadas 



sub comandos. Estes estão 
listados no manual de qual- 
quer MSX, e como exemplo, 
veja o comando abaixo: 
DRAW “UIORIODIOLKT 

Observe que ele seria res- 
ponsável pelo desenho de 
um quadrado de lado 10 na 
tela. Quem especificaria este 
desenho seriam os coman- 
dos U10 (UP 10 }, RIO 
(R1GTH 10), D10 (DOWN 10) 
e LIO (LEFT 10). Observe 
que este sistema lembra mui- 
to a linguagem LOGO, onde 
comandos desta linguagem 
produzem o movimento na- 
tural de uma “tartaruga" pe- 
la tela. 

Obviamente que para de- 
senhar um quadrado é bem 
mais simples utilizar o co- 
mando LI NE. Entretanto, 
quando muitas retas formam 
o desenho, é de extrema 
simplicidade a utíização dos 
subcomandos do DRAW, ao 
passo que a utilização do LI 
NE se torna praticamente 
proibitiva. 



O objetivo deste artigo é 
facilitar ainda mais as coisas. 
Com o utilitário apresentado 
será possível construir o de- 
senho díretamente na tela, 
bastando para isto, dar os 
subcomandos necessários. 
Após estar montada a figura, 
rotinas do utilitário permiti- 
rão a observação de todos os 
subcomandos utilizados, e 
até mesmo imprimi-los nu- 
ma impressora. Desta forma, 
teremos à disposição, todos 
os subcomandos necessá- 
rios à geração do nosso de- 
senho, bastando então colo- 
cá-los dentro de um coman- 
do DRAW numa linha BA- 
SIC, 

Digitação 

O programa utilitário está to- 
talmente escrito em lingua- 
gem BASIC, desta forma, sua 
digitação não apresenta 
maiores dificuldades. Após 
terminar, digite CSAVE 



“DRAW” Após efetuar esta 
operação, digite, CLOAD? 
“DRAW" para conferir. Se a 
mensagem OK aparecer na 
tela, então tudo estará pron- 
to para ser utilizado. Pressio- 
ne F5 . A partir daí será apre- 
sentado o menu na tela. 

D Utilitário DRAW 

O menu apresenta 4 opções, 
como pode ser visto abaixo : 

[Fl] Desenha 
[F2] Elimina comandos 
[F3] Lista comandos 
[F4] Imprime comandos 

A partir deste, poderemos 
acessar uma das quatro roti- 
nas operacionais do sistema. 
Estas podem ser acionadas 
pelo pressionar das teclas de 
função. Vamos analisar ago- 
ra cada uma delas: 

[Fl] Deienha 

Pressionando Fl teremos 
acesso à principal rotina, que 
nos permitirá a criação dos 



Millfil RGB a coted 

Para toda linha IKM e MS\. 

Sistema inédito em monitores, 100 % NACIONAL! Um custo bem convidativo, um otimo desempenho. 
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nossos desenhos. Ao ser 
acionada a rotina, imediata- 
mente a tela será colocada 
em SCREEN 2 e f no canto 
inferior esquerdo, um pe- 
queno retângulo amarelo, 
onde serão digitados, um a 
um T os subcomandos/dese ja- 
des, No centro da tela, na 
posição 128 ,96 será coloca- 
da uma sem, que indica a po- 
sição do cursor Esta seta 
constantemente muda dc 
posição, a medida que os 
sufoc o mandos vão sendo 
executados. Cada vez que 
soar um bccp, sera sinal de 
que o utilitário estará pronto 
para rccebcr um subco man- 
do. Os subcomandos devem 
ser digitados da mesma for- 
ma que se escreve quando 
os inserimos num comando 
DRAW numa linha BASIC. 



Por exemplos ulO, rlO, s4, 
c4, nllO, etc A medida que 
estes vão sendo introduzi- 
dos, a figura vai interativa- 
mente se formando. Caso 
você digite alguma coisa e 
queira que ela seja apagada, 
antes de pressionar RE- 
TURJN, pressione a tecla DE- 
LETE, Todo o subcomando 
que estava sendo digitado se- 
rá apagado e você poderá 
novamente digitar o que de- 
seja. Se você digitou algo in- 
compatível com a sintaxe 
dos subcomandos, aparece- 
rá uma interrogação c um si- 
nal sonoro lhe indicando 
que o que você digitou é er- 
rado, Como exemplo, digite 
kl e pressione RETURN, Til- 
do que você digitar errado 



nao será armazenado. Para 
regressar ao menu, digite 
CTRL STOP 

[F2]Elimina comandos 

Suponha que você digitou 
algum subcomando correta- 
mente, porém agora você 
deseja eliminá-lo, pois isto 
não c bem o que você que- 
ria, Para isto, pressione F2. 
Após isto acione a barra de 
espaço para eliminar o ulti- 
mo comando dado, c após 
este, caso deseje, um a um, 
até chegar a eliminar todos 
os comandos, A qualquer 
instante, para retornar ao me- 
nu, pressione RETURN 

[F3] Lista comandos 

Esta c a razão de ser do utili- 
tário. Pressionando F3 você 
terá na tela todos os subco- 



mandos que formam a figu- 
ra da tela, em ordem sequen- 
cial. Estes subcomandos co- 
locados dentro de um 
DRAW produzirão no seu 
programa a figura que você 
vê na teia. 

[F4] Imprimo comandos 

Faz o mesmo que o anterior, 
só que numa impressora. 

Experimente então criar 
desenhos, obter as listagens 
dos subcomandos e execu- 
ta- los dentro dos seus pro- 
gramas através do comando 
DRAW, Você verá que com 
este utilitário a criação das fi- 
guras ficará muito simplifica- 
da. permitindo inclusive que 
sc guarde as mais interessan- 
tes com as saídas impressas. 

E 
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JOGOS SERIE PRATA CZf 100,00 



0146 3D ROMBEFM AN 
Q129 3D KNOCKOUT 
0069 ANIMAL WAR2 

0006 ANTARTIC ADVENTURE 
011? AtLETlC LANO 

0123 BACK TO THE FUTURE 

011* BANK PANIC 

0137 BASEBALL 

0160BATTLE CROSS 

0175 BEAM RIDEfí 

0086 BILHAR 

0003 BlNAflY LA ND 

0108 BLAGER 

0126 BLOCKED RUNNER 

0149 BOARDELLO 

0179 BOKOSUKA WARZ 

0184 BQOGABQO 

0005 BOSCONIAN 

0106 BQUDER ÜASH 

OO08BHIOGE 

0072 BUÜK ROQEHS 

0067 BUTAMA.RU 

01 47 BUZOFF 

007 CANNON FIGHTER 
0130 CA RLE 

0143 CAT ADVENTURE 
0097 CHAMPION HQR&E 
0104 CHILLER 
0051 CHOCK IN POR 

0008 CHORQQ 

0020 CIRCU5 CHARLY 
0022 COLUM8IA (SKY JAGUAR) 
0079 CONDQRMAN 
01 OO CONGO BGNGO 
0102 CORA DO MUNDO 
003 T CORRIDA MALUCA 
0064 COSMO TRAVELLER 
0156 CRAZY THAIH 

0210 DART MASTER 
0036 DEC ATHLON 
0t93 DEFENDER FOX 
0064 £>OG FLIGHTEfl 

0211 DRAGÕN ATTACK 
0116EDDIE KIP 

0099 ELEPHANT MARRY 

0009 ELEVATOR ACTION 
0203 EPISOD 4 

0048 EXXEPlON I 
OH4EXXEHION II 
0154 FISCAL DE ESTOOUE 



0101 FLAPPY stones 
0042 FLIPER $ LI PER 
0086 FLYTER 

0165 FOOTVOLLEY 
0024 FROGGER 
OCIdO FRUfT SEARCH 
0005 FUNCKY MOUSE 
0055 fljtebl os replay 

0015 F-16 COM BAT 

0166 GR AN D PRlX WORD 
0110GALLAGA 
9153GAMG MAN 

01 67 GIN KO GOTO 
Q062GIRL-S RAtS 
0111 G LÍDER 
0fl5GROG’S REVENDER 
0105 GUNFR1GHT 

0059 HAPPY FR ET 
Q052HANTEDBOY 

00 1 6 ’ H E RO 

0065 HOLE IN ONE 

0102 HOLE INONEPRO 
0054 HUNCH BACK 

oaia hypper rally 

0012 HYPPER SPORT | 
0O29HYPPERSPORTH 
0071 HYPPER SPORT ||| 
0050 JUMPING RA B BIT 
0076 KAERU SHUTER 



0158 CH! MUMMY 
0012 OH! SHIT 
0056 OLIMPÍADAS I 
□057 OLIMPÍADAS II 
0132 PACMAN 
0002 PADEIRO MALUCO 
0060 PASTIFINDER 

0205 PILL BOX 
0026 PING PONG 
9087 PITFALL I 

0140 PITFALL H 
0001 POLAR STAR 
01 73 POOYAN 

01 4 1 PR É DIO ASSOM BR A DQ 
0210 PROFISSÃO PERIGO 
0163 PUNCHY 

01 13 PIRÂMIDE WAfiP 
0039 RIVER RAID 
ÜD04 ROA D FIGHTER 

0206 ROCK’S BOLT 
0049 ROLLERBALL 
0101 *5AMANTHA FOX 
0025 SENJYO 

0091 SIMULADOR VÔO 737 II 
0219SPACE BUSTER 
0075 SPACE TROBLER 
0171 SPARTAX 
0030 SPèLUNKER 
0045 SQUADRON ALFA 



0043 XADREZ 
0017XYZOLOG 
0020YIE AR KUNG FUI 
0133 ZAXXON I 
0016 ZAXXON II 
0103 ZEXAS 
0077 ZOOM 909 
OÚ37NORSEMAN 
0032 WAR HED 
0239 WELLiNGS BELLS 



0H2 KEYSTONE KAPPERS om STAR SHIP SiMULATOR 



0009 Kl NASA I 

0010 KING'S VALLEY 
0107 KONG 

0131 LEMANS Jl 
ÍM09 'LODE RUNNER II 
0033 MOOM PATFrOL 



0074 STEP-UP 
0122 STOP THE S PRESS 

0070 SU PAR QBQ 
0023 SUPER BILHAR 
0003 SUPER COBRA 



^ a SJ V I I— I 4 ‘_i i- li-J I li« 

0 130 MACACO ACADÉMICO 0169 SUPER SOCCER 
0172 MASTER OF LAMPS 0177 SYVEET ACORN 
0093 MÁXIMA 



O190MAYEN 
0151 MAZIAC 
DOU MJ -OS 

0164 MOLECULE MAN 
0 170 MOLE MOLE 
0065 MOPI RANGER 
0061 MR CHIN 
0136 MR. DO 
0027 MR. WONG 
0947 NINJA I 
9138 NINJA II 



0013 TÊüNNlS 

0014 THE GOONIES 
0112 THE WRECK! 
0021 TH E S EUS 
0157 THUNDERBALL 
0126 TIMEPILOT 
0905 TRIGK BOY 
0058 TURBÜART 
0953 TWIN BEÊ 
0092 VALKYft 



LANÇAMENTOS 

9240 DEMON CRISTAL 
0249 MOSaUlTON ATTACK 

9250 PINE AFILE 

9251 PIPPOLS 
0252 C LU EDO 
9253 ARKANOID 
0254 ARMY MOVES 
9255 TACTION 
0256 VAM PI RE 
9257GROG-S OU ESI II 
0258 AN IMAL BASKET 



Cr» 130,00 

0250 FÜRMATIONZ 

0260 COSMO EXPLORÉR 

0261 TOWEROF DRUAGA 

0262 MUTANT MONTY 

0263 DUNGEGN MASTER 

0264 BOUNDER 

0265 PANTERA COR DE ROSA 

0266 SUPER TFNNIS 
3267 MACROSS FIGHTER 
0263 CA N DOO 
D269SLINKEY 



JOGOS SÉRIE OURO CZ| 120.OC 


0240 10YEAHD 


□220 HERQ-X 


0030 RAMBO 


□193 A VIEWTO A KlLL 


01 20 INTEANAT KARATÉ 1 


0186 SCION 


9235 i ADBIAN MOLE 


021 7 JACK THE NlRRERS 


0061 SOCCER 


0044^LlEN8 


0124 JET60MBER 


0135 SGRCERY 


9233 AMERICAN THUCK 


□ 121 JUMF JET 


O160SPEED KiNG 


9100 AVENGER 


0214 KALEIDOSCOPEESP. 


oi 76 SP it iFire 4o 


9234 BASKET 


□041 KNIGHT LORE 


0035 STAR FORCE 


9127 BATMAN 


0046 KNIGHT MARÉ 


0221 ST AR SCLDIER 


0063 BOXE 


0190 KNIGHT TYME 


0159 STONEOFWIS DOM 


9241 CAMELOTWAHIOflS 


0245 KÜMANTS GOLF 


01 86 "STRíF POKER 


0145CHESS3 — XADREZ 


0079 KUNG FU MASTER 


0231 SUPER BOWL 


9243 CHGPTLSFT 


0170 LUTA LIVRE 


0216 THE WAY OF TH E TIGER 


0225 CIBEflIUM 


0189 -MAC ATTACK 


O220THE CASTLE 1 


0185 DAM SUSTER 


0212 MACA D AN 8 UM PER 


0224 THECA5TLEII EXCEL 


023D DANGER X-4 


0096 MAGICA L KlF YYIZZ 


0200 THE HEIST 


0194 DESOLATÈR 


0202 MONOPOLY 


0294 THE HOBB1T 


□174 EGGY 


□242TYIY CCNNECTION 


0223 THEXDER 


0187 ELIDON 


0093NIGHT SHADE 


0291 TIME BANDIT 


□244 FEUD (HELLOWIN) 


0237 NINJA III 


0215TIMECURB 


0236 FINDERS KAPERÊ 


0040 N0FITH SEA HÉ LICOR 


6192 time trax 


□129 FLlGHT DÉCK 


0227 PLATOON 


0232 TRAlL BLAZER 


0197 FOOT6ALL THE YEAR 


0247 PUZZLE 


D19fi ULTRA CHESS — XADREZ 


0199 FUTURE KNIGHT 


0094 RAID ON B BAY 


0228 UNAS S LAIR 


0140 GALAXIA 


0206 RED MOQN 


9213 VERA CRUZ 


0973 GHOSTBUSTERS 


9152 REGATA 


91 09 VIDEO POKER 


□144 GREEN BEHET 


0238 RETURN TO EPEN 


0090 WARROID 


□222 GU ARDI AC 




0034YIE AR KUNG FU ll 


0195GYFQNDINE 




9229 ZAKILVYOCD 


9246 HEAVY BOXE 




0191 ZANAC 


QUALIDADE COM ECONOMIA 



Vb, 


Cif 


APLICATIVOS 




F.'D AGENDA DQM 


180.00 


F/D 0ANCQ DE DAPOS 


180,90 


F/D CONTA BANCARIA 


300.90 


F/D CONTAS PAG/R EC 


200.00 


FíDCONTR ESTOOUE 


189,90 


F.'D MALA DIRETA 


180.00 


F/D UNI WORD 


209,09 


FIT UNI TEXT 


169.00 


F/D CONT DOMÉSTICA 


209.09 


F/O AGENDA ANUAL 


180.09 


Ff D PLANILHA 


180.09 


UTILITÁRIOS 




Ff D ED MUSIC 


200.00 


FfD STUDYQ7 


250.90 


F/D SUPER SYNTH 


300,90 


F/D ÓRGÃO ELETR. 


200.00 


F/D EDDY2GRAF 


250,00 


F.'D GRAF1C ARTlST 


250,00 


FJDPENCILDESING 


200,00 


F.'D UNI-ART 


200,00 


FfD MASTER VO ICE 


21X1,00 


F.'D SIMIPLE AgsfDigs 


400,09 


F.'DBCOPY3(DfF] 


309,00 


FfD BCOPY4 (D/F/D) 


400.00 


FfD BCOPY5.2 (F/F) 


500.09 


FfD Basic i 


150.90 


FfD BASIC li 


150,00 


F/D BASIC III 


150.00 


PROGRAMAS EM CP/M 


AGENDA 


1 009,00 


CONTABILIDADE 


1 000.00 


CCNTfl ESTOQUE 


1.009,00 


MALA DIRETA 


1 090,00 


DBASE II 60 COL. 


1 000,00 



PACOre ESPECIAL F/D 
PREÇO JÁ INCLUSO DISQUETE 
Czl 2;S00,00 

AGENDA — CONT PG/REC-MALA 
DIRETA — C G N TR ESTOQUE-DATA 
BANK— PLANILHA — SIMPLE UNI- 
TEXT— CONT. DOMÉSTICO 

DUPLICADGR-ED MUSIC-MASTER 
VOlGE — EDDY2 GRAFC-STUDY 
G7 — BASIC [—BASIC II — BASIC III. 

PROMOÇÃO VÁLIDA PARA 
OUT/NOV 87. 



COMO ADQUIRIR NOSSOS PROGRAMAS 

- ENVIE-NOS UMA CARTA COM SEU NOME E ENDEREÇO LEGÍVEIS E EQUI PAMENTO 1NDICAN ■ 
DO O CÓDIGO E O NOME DOS PROGRAMAS DE SEU INTERESSE. ANEXANDO CHEQUE NOMI- 
NAL E CRUZADO PARA JCS INFORMÁTICA E COMÉRCIO UCA. - CAIXA POSTAL 107B - CEP 01 .061 SÃO PAULO 

- SP OU VALE POSTAL PAGÁVEL NA AGÊNCIA CENTRO CÓDIGO 400.009. 

- PRAZO DE ATENDIMENTO: PARA DISQUETE — 10 DIAS E PARA CASSETE 30 DIAS 

- GARANTIMOS A REPOSIÇÃO CASO OCORRA ALGUM PROBLEMA COM NOSSO PRODUTO NO 
PRAZO DE 30 DIAS. 



- PARA CONTATOS TELEFÔNICOS LIGUE (011) fi25-5240 NO HORÁRIO DAS 10:00 ÀS 13:00 E DAS 
15:00 ÁS 19 r 0G DE Z" À 6'. 

- NO CASO DE OPTAREM PELA VERSÃO DISQUETE, ACRESCENTAR CZS 200,00 PARA CADA 06 
PROGRAMAS. 

- PEDIDO MlN IMO CZ* 600.00. ATENDEMOS A TODO TERRITÓRIO NACIONAL E NÁO COBRAMOS 
TAXAS DE REMESSA. 

- CREDENCIAMOS DISTRIBUIDORES E REPRESENTANTES EM TODO BRASIL. 

- TODOS NOSSOS PROGRAMAS CONSTAM EM DISQUETES E CASSETES, SALVO OS PROG. QUE 
CONSTAM COM " " SÓ PARA DISQUETES, PROG. QUE CONTAM COM " NÃO COMPATÍVEIS COM 
HCT-BIT, 



MSX Micro 31 



20 ' DRAW EDITOR ’ 

30 ' J ALE SOFTWARE 11 

40 " 1987 ' 

q ? m f ? ? f f j j ? ) j ? y í j ? 

6 0 ’ ' ” " ' ' 11 

70 ’ Te 1 a ? 

00 jyyyyyyy 

90 OLE AR 9000: DEFINT A--Z 
100 ON STGP GOSUB 1.160 
110 ST DP ÜN 

120 ON ERROR GOTO 1210 
130 OPEN “ qrp ; " FOR OUTPUT AS#1 



140 


DIM 0$ ( 1000) : FM“1 : FOR T==l 


TO 10: KE 


V T, 


" " : NEXT 






ISO 


SCREEN 0 






1 6 0 


0 N K E Y G 0 S UB 3 3 0 , 6 4 0 , 80 0 , 


970 


1 '70 


KEY (i> ON: KEY <2> 


ON 




1 80 


KEY (3) ON: KEY (4) 


ON 




200 


KEY OFF: COLOR 15.4. 


1 : WIDTH 40: CLS 


210 


PR TNT STRINGT (40, " = 


M V » 




220 


PRINT SPCÍ14) ; " DRAW 


EDITOR" 


230 


PRINT STRING* (40. " = 


" > 




240 


LOCA TE 10, 10: PRINT 


" CF1 3 


Desenha" 


250 


DEEP 






260 


LOCATE 10. 12: PRINT 


" CF23 


EI i mi na 


comandos 11 






270 


BEEP 






280 


LOCATE 10,, 14: PRINT 


" CF3:i 


Lista ca 


mandos " 






290 


BEEP 






300 


LOCATE 10, 16: PRINT 


"CF43 


I mpri me 


comandos M 






3 10 


BEEP 






320 


BOTO 320 






330 








340 


" Desenha 






350 


??????????? 






360 


KEY íl) OFF: KEY (2) 


OFF 




370 


KEY (3) OFF: KEY (41 


OFF 




380 


BEEP 






390 


SCREEN 2: COLOR 1 0, 4 


: CLS 




400 


TO 128: TL=96: TR- 15 






410 


DRAW "bni—tc 5 , — 1 1 : c-= 


tr; " 




420 


IF PM-1 THEN 470 






430 


FOR Ol TO PM-1 






440 


DRAW 0$ ( C ) 






450 


NEXT 






460 


TOPEEK (&HFCB7) :: TL= : 


PEEK ( ?iHFCB9 ) : TR 



-=PEEK < KHF'3F2 ) 

4 7 0 SF' R I T E $ ( 0 ) = C HR T (24 0 ) + CH R $ í 1 92 ) + C HR 
$ í 1 60 ) -i-CHR$ ( 1 44 > +CHRÍ ( 8 ) +CHRÍ ( 4 > 
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4 00 


BEEP : L I NE (9,1 70 ) - í 75 , 1 85 3,10 „ BF 




490 


14*=""; c=is: COLOR i 




500 


PUT BPR I TE 0 . ( TC , TL ) , 1 5 




53.0 


PS E T í C , 1 7 4 ) , 1 0 : Q * = I N P U T $ ( 1 ) 




520 


IF Q*=CHR* ( 1273 THEN 480 




530 


IF G*=CHR* (13) THEN 570 




5 4 0 


M * - m + Q $ : I F L. E N ( M $ ) > 8 T H E N 5 7 0 




550 


PR I MT ttl , Q$: C~C+6 




560 


GOTO 510 




570 


Cí (FM) -m 




580 


PM-PM+1 




590 


D R A W 1 ' b m = T C í , = TL ü C * T R ; " 




600 


DRAW "C=TR5 " 




6 j. 0 


DRAW 14* 




620 


TOPEEK (&HFCB7) : TL=PEEK ÍKHFCB9} : TR 




«PEEK < &HF3F2 ) 




630 


GOTO 480 




640 


í í ’l ’l "1 1 1 T 1 




650 


? E 1 i mi n a c orna n d a s ? 




6 6 0 


? ? : p ? : r :■ j 1 ^ í 1 7 ^ ^ ^ ? 




670 


KEY (1) DFF : KEY Í2) ÜFF 




680 


KEY (3) ÜFF: KEY (4) ÜFF 




690 


BEEP 




700 


C L 8 




710 


PRIMT TAB (7) ! "RETÜRN para voltar & 




o menu' 1 




720 


P R I N T T A B ( 7 ) * "ES P A C D p a r a e 1 i m i n a r 




comando 1 ' 




730 


PR I NT : PR I NT 




740 


IF PI4=1 THEN L. OC ATE: 13. 9: PR INI 11 Ze 




r o c 


: ora a n dos!" : F OR T = 1 T 0 3 0 0 0 : N E X T 7 : G 




□TC) 


1 50 




750 


P R I N T T A B ( .1 0 ) ; PM--1 ; " - " s C * í P 14 ■- 1 ) 




760 


A * - 3: N K E Y * : I F A*=" " T H E N 7 >6 0 




770 


IF A*=CHR*<Í3) THEN RETÜRN 150 




780 

p :p 


IF A*= " " AND PM > 1 THEN PM*PM”l:BE 




li» 1 

790 


GOTO 750 




800 






■810 


? L i sta c d m a n d o s * 




820 


j ? ;* ? ,i ;i ,1 ? fi ^ ? «i *i $ * 




830 


KEY ( 1 ) OFF: KEY Í2) OFF 




840 


KEY (3) OFF; KEY <4> OFF 




850 


BEEP 




860 


CL S 




870 

w ir 


P R I N T T A B í 9 ) ; " Li staq b m d e c o m a n d a s 




H 

880 


PRI NT: PR INI 




890 


I F P M = 1 T H E N L 0 C A T E 1 3 9 : P R INT " 1 a 




r o c: Dffi a n dos 1 " : FOR T = 1 TO 3 00 0 : N E X T : GO T 




0 1 60 








0 
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900 FOR C™1 TO PM--1 
9 1 0 PR I NT TAB ( 10) S Cü " ■■■• " ; C$ í C ) 

920 beep: NEXT 
930 PR INI: PR I NT 

9 4 Ci P R I N T T A B i 5 ) ; " P r bbsí o n e qu a 1 qU e r t 
ac 3. a ! " 

950 IF INKEY*“" 11 THEN 950 
960 GOTO 160 

970 ' ' " ” ' * ’ ' ’ ’ ' ' ” ” ' ? 

980 ? Impr i m® comandos ’ 

990 ” " ' ’ ' " ’ ’ ? " " ’ * ’ ' 

1000 KFY (j.) OFFíKEY (2) OFF 
1010 KEY < 3> OFFíKEY (4) OFF 
1020 BEEP 
1030 CL Si 

1 0 4 0 L. ÒC A T E 1 2 ,11: F 1 R I N T ' ’ I m p r 1 me c: om a n 
dos " 

105 0 I F P Mn 1 I HE N !.. □ C A T E J. 2 , 1 3 : P R I N T 1 ' 
1 e r o c o m a n d o s ! " : F 0 R T ■ 1 T 0 3 0 0 0 : NE X T : G 
OTO 160- 

1 060 LPR I NT CHR * í 27 ) « " A 11 S CHR* ( 0 ) 

1.070 FOR C“1 TO 3 

1 030 LPR l NT CHR* í 1 4 > 5 TAB ( 1 0 > t " I mpr i me 
comandos: " 

1090 NEXT C 

1 1. 00 L PR I N T CHR * ( 2 7 ) “ C H í :; : * ( 5 0 ) 

1 1 10 LPRINTILPRINT 
1 1 20 FOR C = 1 TO PM- 1 STEP 3 
í j; 30 LPR I NT TAB í 1 0 ) ?C« " - " 1 0* ( C ) ; T AB C 3 
3 ) iC+1: " í Cif ! C+ 1 ) 5 TAB ( 53 ) ; C+2 ! " - " 5 C 

$ <C+2) 

NEXT C 
GOTO 160 



’ CTRL-8T0P ’ 



BEEP 

RETURN 150 
? ? :• :■ !< ? :■ *• 

* Erro ’ 

? ? ti 7 ? ? F 

SOÜND 0 , 54 : SOUND 1 ,10: SOUND 7 , 254 
I SOUND 8,15 
1.250 PM-PM-1 

1 2 6 0 L ,T N E (9,17 0 ) - ( 7 5 185) , 1 0 , BF 
1270 PSET <4 0,1 75), 10 
1.280 FRINT 41,"?" 

1290 PSET (41 , 175) , 10 
1.300 PR I MT 41,"?" 

1310 FOR T”1 TO 2000: NEXT 
1 320 SOUND 8.0 
1330 RESUME 480 



1 140 
1 1 50 
1 1 , 60 
1. 170 
1 1 80 
1 1 90 
1 200 
121 0 
1 220 
1 230 
1.240 
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CURSO DE PASCAL 
3 a PARTE 



Luíi Pores Azevedo 




Nesta parte iremos tratar de um tipo de 
dado e de estrutura de dado só permi- 
tido em linguageas estruturadas. Geral- 
mente causa estranheza a quem nunca 
trabalhou com uma. 

Relembremos o tipo file, Ele define 
uma estrutura com um número inde- 
terminado de elemèntos, porém sem- 
pre arrumados na forma de uma se- 
quência, 

Numa estrutura tipo “vetor 15 tanto o 
número com a forma de organização 
são fixos. 

Que fazer se tanto o número dc ele- 
mentos como a forma de organização 
variarem dinamicamente? 

Para isto temos necessidade de; 

— criar espaço para novas variáveis em 
tempo de execução 

— definir “ligações" entre estas variá- 
veis, de forma dinâmica, 

As variáveis em Pascal podem ser de 
dois tipos: 

— estáticas, definidas no campo vat 

— dinâmicas, não definidas no campo 
var. Não possuem nomes, e por isto as 
referências a elas devem ser feitas atra- 
vés de ponteiros. 

Um ponteiro (ou pointer) é uma va- 
riável cujo conteúdo é um endereço de 
uma posição de memória. 

No caso da Pascal, a variável “P 51 c 
um ponteiro para um tipo <fi T 5t se+iou- 
ver a declaração: 
var P:| T ou seja: 

P é pointer da variável dinâmica T. 

Existe em pascal uma constante 
pré-definida chamada nil que não 
aponta para nada, 

P: = nil 




Obs: A caixinha representa a variável di- 
nâmica, e a seta, o pointer. 

Necessitamos porém de um proce- 
dimento para criar a variável dinâmica 
do tipo T cujo pointer é R 
Podemos indicar a geração de uma va- 
riável dinâmica da seguinte forma: 
new (P) 



P 



variável tipo T, apontada por R — 

— Estruturas de dados com ponteiros. 



Listas 

A estrutura de dados mais simples que 
existe é a lista. 

Uma lista é uma sequência de elemen- 
tos encadeados por ponteiros. 
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Prim 

O apontador para o início da lista c a va- 
riável “Prim"' cujo conteúdo é o ende- 
reço do primeiro demento (9), 

A sequência tem 3 elementos: (9, 6, 
120 ) 

— Cada elemento da lista tem dois cam- 



Inserçáo de um elemento na Lista 

a) inserção após o elemento apontado 
por “P” 

b) inserção antes do elemento aponta- 
do por c T 3t 

CASO A 



pOS: 

— o primeiro é um número inteiro (9 S 
ó ou 120) 

— o segundo ê um ponteiro para o ek> 
mento seguinte da lista. 

— o último elemento da lista não apon- 
ta para nenhum elemento (seu valor é 
nil)< 

A rotina para a lista acima em Pascal se- 
ria: 
type 

Informação - integer; 

Ponteiro ^fElemento; 

Elemento « rccord 



Antes 




Chave: Informação; 



Prox : Ponteiro 

end; 

vac 

FJ Prim : Ponteiro; 



Vêjamos uma outra rotina útil, a de bus- 
ca de um elemento muna lista: 



P : * Prim; 

NãoAchou : = true 

While (P < > nil) and NãoAchou do be- 

gin A 

if Pf , Chave = Dado 
then NãoAchou : = false 
dse P : s= Prox 



end; 

Se NãoAchou = false então “P” apon- 
ta para o elemento cuja chave = Dado 



Depois 




Isto é feito através dos seguintes co- 
mandos; 

Aux . Prox : = P Prox; 

P .Prox : = Aux; 
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CASO B 



Antes 



Aux . Prox : = P , Prox; 

P . Prox : = Aux; 

Aux . Chave : = P Chüve; 
P , Chave : = Dados; 




Existem muitos outros algorítimos e 
rotinas, para filas, árvores binárias, etc. . . 
Aconselhamos a quem queira se apro- 
fundar no assunto, a seguinte bibliogra- 
fia: 

— Algoritimos dc programa e ordena 
ção. Knuth, “Theart of Computer pro- 
gramning’* vol 3, Addison — Wesley; 
1973* 

— Algoritimos e estruturas de dados — 
Wirth, Prentice Hall 1976 E3 



Aux 




Depois 
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CURSO DE d BASE 
3 a PARTE 

Luís Fms Azevedo 




Vamos abordar 
agora o poderoso 
gerador de 
relatórios do dBase 
II, e como construir 
um arquivo formato 
de relatório. 



Suponhamos que você deseje extrair 
um relatório a partir dos dados por vo- 
cê criados e ainda, que jã tenha em 
mente o formato de relatório desejado. 
Tendo visualizado o cabeçalho princi- 
pal do relatório, você já sabe quais os 
títulos das colunas necessárias e sabe 
quais os campos que deverão ser tota- 
lizados. Agora você deverá informar ao 
gerador de relatórios exatamente o que 
deseja. 

O arquivo de relatórios é um arqui- 
vo de desinência. FRM. 

A primeira coisa a fazer é abrir o ar- 
quivo de trabalho, no caso, nosso arqui- 
vo FUNC 

• USE FUNC 

• REPORT FORMAT RPT1 

Com isto você informa ao dBase a 
intenção dc criar um arquivo chamado 
RPT1.FRM, 

O dBase tárá então uma série de per- 
guntas para saber o formato desejado 
e as respostas serão arquivadas no ar- 
quivo — formato RPTl.FRM. 

As perguntas serão : 

ENTER OPTIONS, M= LEFT MAR- 
GIN, L = LINES/PAGE, N= PAGE 
W1DTH 

Se você teclar ENTER, serão assumi- 
dos os valores default (valores por 
omissão). 

Para LEFT MARGIN, o default é 8. 
Para LINES/PAGE, o default ê 57 
Para PAGE W1DTH, é 80. 

Outras perguntas: 

PAGE HEADING? (Y/N) Y 
ENTER PAGE HEADING: REPORT 1 

Agora você terá que fornecer um ca- 
beçalho: 

DOUBLE SPACE REPORT? (Y/N) N 
ARE TOTALS REQL1RED? (Y/N) N 

Isto feito, deverá informar as colunas 
que quer no relatório 



É necessário especificar para cada 
coluna, a largura e o conteúdo de infor- 
mação desta coluna. 

COL WJDTH CONTENTS 

001 10, EMP NUM 
ENTER HEADING: EMP NUM 

002 20, EMP NOME 
ENTER HE A DING, EMP NOME 

003 15, CIDADE 
ENTER HEADING: CIDADE 

004 <CR> ou < ENTER > 

TECL,E cXR^* ou Enter para finalizar, 
c será exibido o relatório abaixo: 

PAGE NO, 0001 
07/01/87 

REPORT 1 

EMP NUM EMP NOME CIDADE 
0705 LUÍS CLÁUDIO RIO 
0789 VALERIA RECIFE 



A partir daí, para enviar dados à im- 
pressora, bastará digitar: 

REPORT FORM RPT1 TO PR1NT 
O relatório será mostrado no vídeo 
e na impressora, 

Quando você utiliza a opção TO 
PRINT, o dBase presume que a impres- 
sora não está posicionada corretamen- 
te em uma nova página, e avança para 
posicioná-la. Para desativar este primei- 
ro avanço é necessário usar: 

• SET EJECT OFF 

• AEPORT FORM APT1 TO PRINT 

— Pode-se fazer um relatório seletivo, 
onde apenas os registros que obede- 
çam a determinada condição apare- 
çam: 

• REPORT FORM RPT1 TO PRINT 

FOR 

— Se você quiser que apareça um ca- 
beçalho antes do início do relatório use 



as 
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o comando SET HEADING TO. 

* SET HEADING TO REPORT AS JU- 
NHO/87 

* REPORT FORM RPTI TO PRINT 
FOR 

< condição > 

Surgirá então; 

REPORT AS JUNHO/87 
PAGE NO, 0001 
07/01/87 

REPORT 

Como obter totais 

Geralmente em relatórios que envol- 
vam números você pode desejar totais 
em cada coluna, 

Para isto, basta ao abrir o REPORT 
FORM, informar Y ao dBase, quando 
ele perguntar: 

* ARE TOTALS REQUERED? (Y/N) 

Ele só lhe perguntará isto em um 
campo numérico, 

Relatórios com Sub- totais 

O sub-total ou "quebra" é muito co- 
mum em processamento de dados, A 
rigor, antes de se pedir um sub- total, o 
arquivo deverá entrar ordenado com 
50 RT ou INDEX. Vamos ordenar um 
arquivo-exemplo pelo campo CIDADE, 
c pedir sub-totais por cidade: 

* INDEX ON TOWN TO TINDX 

* REPORT FORM RPT18 FOR CIDADE 
= "RIO 1 ’ 

OR. CIDADE * “BH" 

ENTER OPTIONS, M - LEFT MAR- 
GIN, L = LINES/FAGE, 

W= PAGE WIDTH 

PAGE HEADING? (Y/N)Y 

ENTER PAGE HEADING: REPORT 18; 

SUB-TOT 

DOUBLE SR\CE REPORT? (Y/N)N 
ARE TOTALS REQUIRED? (Y/N)Y 
SUBTOTALS IN REPORT? (Y/N)Y 
ENTER SUBTOTALS FIELD: CIDADE 
SUMMARY REPORT ONLY? (Y/N)N 
EJECT PAGE AFTER SUBTOTALS? 
(Y/N)N 



ENTER SUBTOTAL HEADING: SUB- 
TOT CIDADE 

COL WIDTH, CONTENTS 

001 12, CIDADE 
ENTER HEADING; < CIDADE;... 

002 1() T EMRNUM 
ENTER HEADING < NUM: EMP 

003 15, EMP NOME 
ENTER HEADING < NOME; EMP 

004 8 t SALARIO 
ENTER HEADING: > SALÁRIO; . . . 
ARE TOTALS REQUIRED? (Y/N)Y 

005 < ENTER > 
O relatório obtido será: 

PAGE NO 0001 
07/01/87 

REPORT 18 
SUB-TOT 

CIDADE NUM NOME SALÁRIO 
EMP EMP 



* SUBTOTAL CIDADE RIO 



RIO 


375 


LU IS 


RIO 


111 


VALERIA 


RIO 


181 


RICARDO 



* SUBTOTAL* 

* SUBTOTAL CIDADE BH 



BH 


571 


MARIA 


BH 


81 1 


EDUARDO 



* SUBTOTAL* 

* TOTAL 



5000.00 

15000.00 
25000.00 



45000.00 

5000.00 

15000.00 

20000.00 
65000.00 



s 
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Observações importantes: 

O ; (ponto e vírgula) serve para escrever uma se- 
gunda linha. 

< a linha à esquerda o título 
> a linha à direita o título 

Montagem de Sistemas em dBase li 

O primeiro passo para você começar a 
escrever seu sistema é definir suas ne- 
cessidades, Por exemplo se você vai 
construir um controle de estoque, que 
dados lhe interessam? 

— M? do item 

— Preço unitário 

— Descrição 

— Data de aquisição 

— etc.. 



At) definir estas necessidades básicas 
você poderá criar um arquivo, com o 
comando CREATE. 

Você logo verificara que não é inte- 
ressante, se seus pedidos de informação 
ao arquivo são sempre os mesmos, di- 
gitar os comandos até agora aprendi- 
dos, como 
LIST FOR, 

EDIT, etc... 

Além do mais, pessoas que não co- 
nhecem estes comandos, não saberão 
operar o seu controle de estoque. Que 
tal montar um sistema guiado por me- 
nus? Para isto use o cornando MOD1 
CQMM Ele pedirá o nome cio arquivo. 
Será aberto então um texto onde você 
ira gravar os comandos que usa de for- 
ma repetitiva, de modo que ao preci- 



sar executa-los outra vez bastará digitar: 
DO PROG 

Onde PROG c o arquivo de coman- 
dos que você gravou anteriormente. 

Lcmbre-se que CTRLW efetua grava- 
ção em disco. 

No próximo número listaremos um 
sistema guiado por menus, comentado 
a cada passo. 

Até lã, LãJ 
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MSX DATABASE: 

0 melhor, mais simples e mais rápido banco de dados "Full 
Screen" do momento. Possuí Manual Completo. Em fita ou dis- 
co (incluídos): 400,00. Em Cartucho: 300,00. 

MSX WRITE: 

0 mais versátil e poderoso Processador de Textos. Acentua cor- 
retamente nas impressoras nacionais. Completo com múltiplas 
funções e Manual Detalhado, Em fita ou disco (incluídos): 
400.00. Em Cartucho: 800,00. 

MSX SPREADSHEET: 

Uma Planilha de Cálculos rápida e eficiente, muito superior às 
existentes no mercado, pois è totalmente em Linguagem de 
Máquina. 

Fácil de usar com nosso Manual Exclusivo. Em fita: 500.00, Em 
Cartucho: 900,00. 



MSXGEOS: 

Um novo conceito em programação: Jane- 
las, "Labeis" e ícones. 

Parece um Macintosh mas é um MSX! 64 
Colunas, Calculadora. Dump Debug e Lei- 
tor de Header em "ROM", Uma maneira 
mais Fácil de se usar o Disk- Drive. Disco e 
manual incluídos: 1700,00. 

MSX INTERFACE I: 

Uma "ROM Envenenada" para seu MSX: 
Multi- Copiador embutido, novas funções, 
Cor de fundo preta e auto keyoff, etc Em 
cartucho: apenas 1000,00. 

À 
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5 U PERCO PY 7.1: 

Super-Copiador de Programas em Assembler travados ou não 
Possui várias velocidades de gravação, Monitoração Visual e 
múltiplos recursos. Acompanha Manual Completo. Em fita ou 
disco (incluídos): 500,00. Em Cartucho: 900,00. 

MUVDOSII: 

Um novo Sistema Operacional. Transfere programas de Fita pa- 
ra Disco e vice-e-versa. Expande a memória e as funções do 
Disc-Rasic. Apenas em Disco: 500,00. ( Disco e Manual incluí- 
dos), 

GRAFMASTER: 

Utilitário Gráfico Profissional. Com poderosos recursos e diver- 
sas ferramentas opcionais. Muito superior aos já existentes. 
Com ele tudo é possível. Em fita e disco 1 incluídos): 400,00. 



INFORMÁTICA- 



RECORDE NACIONAL DE 62.000 PROGRAMAS VENDIDOS EM 5 MESES! 



Novos Lançamentos Í9/87) — 10 jogos por 600,00 1 Disco ou fita incluídos): 

Scope Qn, Starquacke, Saboteur Mission. Illusiom, Actman Quest, Super Cross Force, Pippds, Sea Hunter, Penguin Advem une, 2002 M,A. Cross, Eggerland, Arkanoid, 
Army Moves, Auf Monty, Erotic Movie Show, Volguard, Formation Z, B.C. Quest, Konami s Golf, Boogie Woogie Jungle, Juno's First, Bee & Flowers, Candy Faíry, Bat- 
tleship Clapton II, Lonesome tanks, Halloween, Turmoíl, Thexder, Skí Command, Zanac, Profanation, Star Force. Colt 36. Candoo Ninja IV, Space Tunnel, Space Eggv, 
Future Kung-Fu, Red Zone, Scremble Eggs, Deaih Circos, etc. 



Solicite gratuita mente nosso CATÁLOGO ILUSTRADO, com a iista atualizada - Jogos á partir de CzS 30,00! 



Envie vale postal ou cheque nominal visado à NEMESIS INFORMÁTICA LTDA. Caixa postal 4583 oep. 20.001 — Rio de Janeiro — RJ. 
Ou venha pessoalmente ao nosso SBOW-ROOM NEMESÍS — Rua Sete de Setembro, 92 sala 1910 — Centro — Rio de Janeiro — RJ. 
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SOFTWARE 



Supermercado Cavalo Branco 



Açúcar Refinado 


labela dc Preços 
1 Kg 


3,87 


Biscoito Água c Saí 


200 g 


3,85 


Café 


I Kg 


99,90 


Feijão Roxinho 


1 Kg 


13,00 


Sal Refinado 


1 Kg 


1,60 


Farinha de Trigo 


1 Kg 


2,89 


Linguiça Calabresa 


1 Kg 


46,85 


Queijo Mussarela 


1 Kg 


33,50 


Óleo dc Soja 


900 ml 


777 


Refrigerante 


300 ml 


1,90 



Planilhas Eletrônicas 

As duas maneiras mais frequentes de ar- 
mazenar dados são : 

— sob a forma de um fichário ele- 
trônico ou banco de dados. 

Sob a íòrma de uma “planilha ele- 
trônica” 

O que há dc diferente entre os dois? 

Num banco de dados, existem geral- 
mente vários campos, com □ mesma ló- 
gica. Por exemplo: cada ficha pode ser 
a ficha funcional de um empregado da 
empresa, com campos como: 

— nome 

— endereço 

— telefone 

— filiação, etc... 

Esta lis tt de campos pode se tornar 
bastante extensa, nos bancos de dados 
mais complexos. 

Numa planilha eletrônica, em cada 
linha temos um item, com dados nas 
colunas referentes a este item. Geral- 
mente as planilhas referem-se a cálcu- 
los e demostrativos financeiros porque 
são feitos cálculos envolvendo as linhas 
e também as colunas como totais c 
sub- to tais. 

Na realidade o que muda de uma 
forma para outra, é o modo dc apresen- 
tar os dados. Nada impede que usemos 
um banco dc dados para representar os 
dados que estão sob a forma de plani- 
lha. 

Vejamos um exemplo de planilha: 



Planilhas a a Microcomputador. 

As características das planilhas para mi- 
crocomputadores podem ser bastante 
interessantes para você: 

— As fórmulas, os sub totais, totais 
parciais e o total geral são calculados au- 
tomaticamente, 

— Os itens já existentes podem ser 
alterados facilmente. 

— Os novos itens podem ser adicio- 
nados a qualquer instante. 

— Podem ser obtidas quantas cópias 
forem necessárias, a qualquer momen- 
to. 



— Os arquivos de dados podem ser 
gravados em fita-cassete ou disco, para 
utilização posterior. 

Mas, afinal, o que é uma planilha ele- 
trônica? 

Para esclarecer e exemplificar melhor, 
vamos nas basear na Hot Plan da Sharp: 
O I lot Plan requer a seguinte confi- 
guração mínima: 

— M icroc om puta dc > r 
— Monitor de vídeo 

— Gravador 
Opcionais: 

— Impressora 

Unidade de Disco 
- Disquetes para arquivo 
O Hot Plan é fornecido em cartu- 

0 




Software 

pronto 



R : August a T 2-i90“2o-Cj /325-Cep ,014 i 2 
Tei.síOíi) 352.2952 - Sas PaulcrSP 



UH A SGLUCAG LÓGICA E PRONTA 
PAPft PPCNTA EMTRESAs Contabilidade Gerai automatica T Folha de Paga&ento* 
Conta Corrente* Conta Corrente^ Sistema de Controle fiancario, Controle 
de Contas a Pagar e Receber, Sistema de Controle de Estcgue* Sistema de 
Haia Direta, Sistema de FIukd de Caixa, Editor e Processador de Textos, 
Programas para Engenharia. Programas Específicos ent Geral para todos oe 
Hicro-CoiGputsdorEE, 

ATENDIMENTO PARA TODO BRASIL 
TEL: <01 i> B52-295B 
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cho. Ao instalá-lo, surge na tela urna ma- 
triz: 

12 3 4 
1 
2 



22 

Na verdade a matriz c bem maior do 
que aparece na tela (63 x 99). A matriz 
representa as linhas c colunas a preen- 
cher. 

Podemos deslocar a janela na qual 
visualizamos a planilha usando as setas 
do teclado, 

Existe um cursor com 9 posições, 
que sc desloca sobre a matriz, c permite 
entrar com: 

— números 

— textos 

— fórmulas 

— A digitação de fórmulas é uma carac- 
terística bastante interessante, pois per- 
mite automatizar operações entre as co- 
lunas. Por exemplo: 

— MIN (R9C3:R58C3) 

Nesta formula calcularíamos o mí- 
nimo na coluna 3 entre as linhas 9 e 
A referencia a uma célula qualquer é fei- 
ta por Rm Cn y onde m é o n? da linha 
(Row) enco numero da coluna. 
Após o usuário ter definido: 

— Cabeçalho 

— Valores numéricos 

— Rodapé 

Devem ser definidas as fórmulas, e 
após a digiiação dos valores numéricos, 
o computador automaticamente calcu- 
lará os outros valores, que dependam 
destes. 



informações e o número de casas de- 
cimais, embora prefixados, podem ser 
alterados a gosto do usuário, 

Com efeito, pressionando-se E4 no 
Hot Plan, temos as opções: 

F2 — estetêtiea da célula, onde a cé- 
lula pode ser colocada ã esquerda, no 
centro, ou à direita. Normalmente as in- 
formações que colocamos na célula são 
alinhadas pela direita 

F7 — Formato Monetário 

F8 — Formato fixo, onde se permi- 
te fixar o número de casas decimais. 

F9 — Formato Geral 

Comandos Para Transferência 

F8 — Transfere para impressora uma 
cópia da planilha. 

É possível especificar qual trecho 
deve scr impresso, compatível com a 
largura da impressora. 

Através da outra tecla de função (F9) 
transfere-se para a fita ou disco o arqui- 
vo da planilha. 

Como vimos, a planilha é um software 
fácil de operar. O que dá a ela extrema 
versatilidade e define seu potencial de 
uso, no entanto, são as funções mate- 
máticas, estatísticas, etc... que da pos- 
sua. 

Vejamos um resumo das funções do 
Hot Plan: 

ABS (X) — valor absoluto do argu- 
mento. 

AND — função lógica 

ATAN — arco tangente do argumen- 
to 

AVER AGE — calcula a média aritmé- 
tica 

COS (argumento) — cosseno dc um 
argumento 

COUNT (argumento) — conta o nú- 
mero de elementos da lista 

EXP (argumento) — função expo- 
nencial 

IF — teste ou desvio condicional 



Parâmetro* da Planilha 

Alguns parâmetros do Hot Plan, como 
a largura da coluna, o alinhamento das 
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* Hot Bit e E Xpert sao marcas registradas da Sharp e Gradiente, respectiva mente. 



INS — insere linhas e colunas no 
meio da planilha 

INT (argumento) — retorna a parte 
inteira do número 

LN (argumento) — retorna a pane in- 
teira do número 

LN (argumento) — logaritimo nepe- 
riano 

LOG 10 (argumento) — logaritimo 
decimal 

MAX (lista) — retorna o maior valor 
da Lista 

MIN (lista) — retorna o menor valor 
da lista 

MOD (dividendo, divisor) — retor- 
na o resto da divisão do dividendo pe- 
lo divisor 



NFV (taxa, lista) — calcula o valor 
presente de um fluxo de caixa repre- 
sentado pela lista, na taxa dada 

PI ( ) — valor do número PI 

ROUND (argumento, n) — arredon- 
da o argumento, na enésima (n) casa de- 
cimal 

SIGN (argumento) retoma — 1, 0, ou 
1 em função do sinal do argumento 

SIN (argumento) — raiz quadrada do 
argumento 

SQRT (argumento) — raiz quadrada 
do argumento 

STDEV (lista) — calcula o desvio pa- 
drão da lista 

SUM (lista) — calcula a soma dos ele- 
mentos da lista 



TAN (argumento) — calcula a tan- 
gente do argumento 
Pelo que vimos acima, o elenco de fun- 
ções existentes numa planilha deve 
incluir as mais variadas. 

— financeiras 

— estatísticas 

— gerais 

A HOT PLAN, uma das várias plani- 
lhas existentes no mercado para o MSX, 
consegue reunir extrema facilidade de 
operação com ampla gama de funções. 
Sua documentação é excelente, e bas- 
tante didática, 

Luis Peres Azevedo FT ^ 



GRAFIX MTA. 

A IMPRESSORA PARA MSX. 





Agora você pode fazer muito mais 
com o seu MSX. Chegou a impressora 
Grafix MTA , especialmente desenvolvida 
para micros Hot Bit* e Expert*. 

A Grafix MTA é extremamente útil 
e versátil. Simples de operar, ela imprime 
em 80 colunas, gráficos e textos com 
acentuação em português; permite a 
utilização de folhas soltas, papéis de carta 
e envelopes; possui, opcionalmente, 
tracionador para formulário contínuo; 
e o que é melhor, custa bem menos. 

Profissionalize seu micro MSX. 
Compre sua MTA em um revendedor 
autorizado Grafix. 



GRAFIX 

Scritta Eletrônica Ltda 
Alameda Amazonas, 832 CEP 06400 Barueri - SP 
Tel.: <011) 421.3422 (PABXl 421,1247 e 421. 3057 í vendas) 



Representantes: Belo Horizonte: RH. (031) 222 1846; Brasília: Micro J s (061) 272 0670, Curitiba: Casa Eloy (041) 242-7173; Fortaleza: Silva Gomes 
(086) 226-2400; Manaus: Souza e Cia. (092} 232-0512, Recife: Mix (081) 231-1159; Rio de Janeiro: Grplave (021 ) 220-0240. 
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DICAS 



BATENDO EM OUTRAS 
TECLAS 



Cansado do dick-click das 
teclas do MSX? Então ponha 
um beep de verdade no seu 
teclado. É sõ comandar: 
Feito isso, entre com estes 
pokes e veja — ou melhor, 
ouça a diferença: 

Pata voltar ao normal, é só 
fazer: 

Adriano Rondei li 
Gonçalves — SP 



> 

t> 

o 



p n |< IP }!,. HF- D C 3 „ 1 9 2 ü P D K E Hf" .0 C 4 . 0 " P 0 K E 8< H !-■ D C 2 
. .1.95 

p OK E & HF 3 D B , 0 - p r o d u z b e e p 
p o K E 8 íH F 3 D B . 1 - p r o d u c 1 1 c k + b e e p 

PÜKE&HFÜC2, 201 



IMPRESSÕES LOCALIZADAS 




Utilizar a instalação LOCATF 
repetidas vezes para posicio- 
nar a impressão no vídeo 
pode, em alguns casos, tor 
na-se um pouco lento. Uma 
alternativa para contornar es- 
te problema é dar POKE nas 
variáveis do sistema que 
apontam a posição de im- 
pressão. O endereço F3DCH 


contém a coordenada verti- 
cal (1-24) e o endereço 
F3DDH, a coordenada hori- 
zontal (1-40) para a instrução 
PRINT. Assim da próxima 
vez, ao invés de LOCATF 
15,0: PRINT "TEXTO 5 ; use; [> 
Armando José Gomes — 

SP 


p 0 K E & H F 3 D C 1 : P OK E & H F 3 D D . 1 6 
PRINT "TEXTO" 



RELEVO “Hl-TECH” 

Se você integra a legião dos 
que acabaram de adquirir 
uma impressora grafica, este 
pequeno programa c uma 
boa pedida para estrear seus 
dumps de alta resolução. 
Mas se você ainda não tem 
impressora, não tem proble- 
ma: relaxe e aprecie a tela en- 
quanto seu MSX vai comple- 
tando o desenho. 

João Sampaio Dória — 

RJ 



l> 1 o c G l D R j. 5 . í . 1 ; S C R E E N 2 : DE F- S N GA ■- Z 

2 0 F 0 R A = 0 T 0 1 0 S T E P . 2 : F DR B= 0 T D 1 0 S T E P ., 1 : C 

1 0*COB < 3*SQR ( ( B 5 ) ^2+ ( A-5 > "'-2 ) ) /2+50 : 

PSET í B*24 +A , A* 1 0+C > : NE X T : NE X T 
30 (30TQ30 
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SERES ALIENÍGENAS 




Um Kiwi e um Ewok você jã 
deve saber como são. Mas o 


^ 2Ò fo‘rã= i eadi<: í s lf éNR$ < k > ; next 


que vem a ser um Kiwok? 


: SPRFTEt ÍO) ==SÍ 


Rode o programa e 


30 CLS :: PUTSPR I TEO . ( 1 20 , 90 ) , 1 5 0 


descubra. . . 


40 DA TÁ 8,4, 3, i 5 . 29 , 6 3 , 1 59 „ i 3 5 , 1 3 1 „ 255 


Francisco Roberto de 


. 1 5 , 1 5 , 6 , 4 , 8 , 28 . 1 & , 32 , 1 92 . 240 , I 84 , 252 , 


Oliveira — F)F 


248 . 224 , t 92 , 255 , 24 í , 24 1 . 97 , 32 . 1 6 , 56 



Softnew Informática 

TUDO PARA O COLOR E MSXÍH 

Tradicional em softwares para o CP-400 e MSX. 

Imensa variedade de softwares, 5000 programas para o CP-400 
e 500 programas para o MSX. 



CP-400 

Jogos — CzS 15,00 
Aplicativos c Utilitários 



cocomax I e íí 

vlpdibrary 

vizidraw 

OS9-sist. 

operacional 

livro 500 peeks e 

pokes e exec s - 

traduzido 

adventures em 

português 



Cz$ 600,00 
Cz$ 2,100,00 
Cz$ 1.200,00 



Cz$ 250,00 

* minimax 

* deskmate 

* pervpal 



Cz$ 400,00 
Cz$ 800,00 
Cz$ 800,00 



Cz$ 5*000,00 * copiadores Cz$ 600,00 



Cz$ 250,00 * joysticks Cz$ 450,00 



MSX 


ii 


Jogos — Cz$ 29,00 


* Aplicativos e Utilitários 


Cz$ 300,00 


• Copiadores 


Cz$ 400,00 


* Controle de estoque 
(disco) 


Cz$ 400,00 


* Master voice 
(sintetizador de voz) 


Cz$ 350,00 



PROMOÇÃO POR 
TEMPO LIMITADO! 



no»*o de trabalho: 

Cobramos uma taxa deCzí 70,00 correspondente a fita cassete, sendo que nessa fita podem ser 
colocados 30 programas para CP 400 c 20 programas para MSX, Caso deseje que sejam divididos 
os programas em várias fitas, nos informe o número de fitas. 

OB5.: — Encomenda mínima Czí 290,00 — Taxa de correio Qz$ 60.00, 

Despachamos para qualquer lugar do Brasil. A fita e/ ou disco será entregue em sua residência. 
Caso você, deseje que seus programas sejam colocados em disketes, o valor do mesmo é de 
Czi 150,00, 



AU-nrirmos todo% os dias no horário i ottierc i«i J ç aos sá ba dos das 9 ás 13 hs. 



Solicite nosso catálogo hoje mesmo, e quando recebê-lo envie seu pedido e a quantia atra- 
vés de cheque,- dinheiro ou Vale Postal para a agência Casa Verde, no valor correspondente 
ao seu pedido. 



SOFTNEW 

Rua Miguei Maldonado. I 73 — Bairro 
Jardim São Bento — Sào Paulo — SP 
Tei.: (OI 1) 266=2902 
CEP 02524 
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GAMES 



AV. PAULISTA 



Este jogo do tipo “adventm 
re' t inteimmente desenvolvi- 
do no Brasil, conduz o par- 
ticipante através da cidade de 
São Paulo e oferece uma va- 
riedade de situações que faz 
com que cada partida seja 
uma nova aventura. Como o 
nome sugere, as aventuras se 
desenvolvem em uma das 
regiões mais sofisticadas c 
conhecidas de São Paulo: a 
Àv. Paulista. Em perigo, en 
contra-se uma importante 
personalidade da cidade: o 
diretor do MASP — Museu 
de Arte de São Paulo, cujo 
cérebro foi confiscado pelos 
adoradores da AKERNAAK, 
“O mal maior”, Somos então 
desafiados a resgatar esta au- 
toridade e impedir assim, es- 
te terrível desfalque no acer- 
vo intelectual brasileiro. 
Não c fácil, Movendo-se 
livremente pela cidade, você 
precisa encontrar as armas e 
os caminhos adequados pa- 
ra atingir a laje de cobertura 



do Museu onde esta preso o 
diretor. Porém, se você con 
seguir chegar até lã, mas es- 
tiver despreparado para en- 
frentar seus guardiães, será 
por eles impiedosamente 
destruído. 

Como todo simples mor- 
tal, você tem certos limites da 
capacidade e resistência. Ao 
longo da jornada você vai 
encontrando amigos e inimi- 
gos, armas e outros objetos 
de que necessitara para en- 
frentar perigos e superar 
obstáculos. 

Como encontrar o livro 
que tem a palavra, mágica? 
Como desarmar a bomba 
que o louco bombardeador 
colocou no Center 3? Como 
forçar o feiticeiro da noite a 
sair do túnel da Nove de ju- 
lho para você poder pegar o 
estojo de primeiros socorros 
que ali está? 

Só hã uma maneira de 
obter essas respostas: jogan- 
do o AV. PAULISTA e evitan- 
do que o cérebro do MASP 
se transforme num... bode 
dourado! 



POKERREAL 



Você vai experimentar todas 
as emoções que um dos 
mais conhecidos jogos de 
cartas de todos os tempos 
pode lhe proporcionar. Aqui 
você vai jogar pôquer dc 
verdade, só que contra o 
computador, um adversário 
que age sempre dc forma ab- 
soluta mente honesta. Ape- 
nas um detalhe: tal como vo- 
cê, ele também pode blefar 
algumas vezes, aleatoriamen- 
te. Assine você vai precisar 
de toda a sua sorte — e tam- 
bém dc muito discernimen- 
to. 

No início cada um recebe 
um cacife de Czl 1.000,00 e 
pode apostar, pedir cartas, 
repicar, abandonar o jogo - 
tudo exatamente como no 
jogo convencional com eai- 
tas. Vale lembrar que o com- 
putador faz toda a adminis- 
tração do jogo com a mais 




absoluta isenção, não se va- 
lendo em nenhuma hipóte- 
se do fato de ter as cartas do 
oponente resgi st radas na 
memória. Utilizando um ba- 
ralho de quatro naipes, do 
sete ao ás, o micro embara- 
lha as cartas e distribui cinco 
para ele e cinco para o adver- 
sário (você). Em seguida, o 
computador verifica o valor 
das jogadas — todas são 
consideradas, desde o mini 
mo (chamado FUTEBOL) 
até a sequência máxima — 
aposta, repica e, após cada 
rodada, verifica a hierarquia 
das jogadas. Por fim, aponta 
e Credita ao vencedor o va- 
lor da mesa, isto é, o total de 
apostas daquela rodada. 

Sc você gosta de um jogo 
de cartas dinâmico, ou quer 
aprender a jogar pôquer, es- 
ta é a sua chance. 
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Acabou o problema da 
casa própria para os MSXi 

Nãó amigos, este não é mais um comunicado do BNH. É a notícia 
mais esperada pelos usuários de micros MSX. Foi aberta a Casa do MSX, 
a primeira e única loja totalmente especializada na linha MSX. 

Lá tem tudo para o seu Expert* ou Hot Bit** ticarem ainda melhores: 
impressoras de última geração, disk-drives para aumentar o seu potencial, 
os mais famosos softwares, literatura básica e avançada, além de muitas 
dicas para você dominar e abusar do seu MSX. 

E como nós somos os especialistas, o nosso preço também é especial. 

Venha nos fazer uma visita. A Casa 
é sua, e dos MSX. 



»°SS w ' as 






CASA DO MSX 



Rua Afonso Brás, 155 - SP, 
Teis.: (011) 240-1994 e 533-2351 




o SOFTWARE É NOSSO! 



CURSO DE BASIC para todos os computadores, auto-explicativo, passo a passo, para todas as idades, em fita ou disco. 



UNHA EDUCACIONAL (em fita) 

Matemática 1 ° Grau ■ Conjuntos ■ Operações Básicas - Grandezas Proporcionais - Equações - Sistemas de 
Equação ■ Geometria Gerai ■ Triângulos -Area de Polígonos 

Matemática 2 0 Grau - Funções - Trigonometria - Progressões Aritméticas ■ Progressões Geométricas - 

Geometria Espacial ■ Limites e Derivadas - Geometria Analítica e Números Complexos 

Física - Mov Retilíneo Uniforme - Mov. Retilíneo uniformemente Variado - Mov. Circular uniforme ■ Mov 

Harmónico Simples - Choques Mecânicos e Qtdes. de Movimento - Lançamento Oblíquo ■ Energia Mecânica - 

ótica ■ Eletrostática - Circuitos Elétricos I- Circuitos Elétricos n 

Química - Leis dos Gases - Níveis de Energia - Tabela Periódica - 

Compostos lônicos - Funções Orgânicas ■ Teoria Cinética dos Gases 

APLICATIVOS 

Orçamento Doméstico - Topografia (Eng. Civil) - Controle de Estoque ■ ■j.i.t frT.Mji IUM 

Mala Direta - Contas a Pagar/Receber ■ Orçamento de Obras 



lin/E/OPI: 

V J 

ENGESOFT TECNOLOGIA NA INFORMÁTICA LTDA . 

moí -Av. República do Líbano, 2.073 - Tel.: <0111 549-9788 
Caixa Postal 42055 - São Paulo - SP 



cartuchos para MSxe vídeo-game com variado número de jogos. 




Distribuição nacional nos magazines ; lojas de cine foto-som e especializadas 







